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A FORTRPiN PROGRAM FOR THE ANAIYSIS 
OF LINFAR COrJTIWUOUS AND SAMPI^-OATA SYSTEMS 

John W. Edwards 
Fryden Flir'ht Research Center 

ENTRODUCTIOW 

A FORTRAN digital computer program Is described which 
analyzes linear continuous or sainpled-data systems using 
state variable techniques. Open- and closed-loop systems 
may be sinalyzed using frequency response or transient 
response techniques. Root locus and root contour options 
are also available. Systems may be defined by inputting 
explicit data matrices, by constructing matrices in user 
written subroutines, or by specifying transfer function 
block diagrams. The program also allows the user to define a 
system using a combination of the above methods. For 
instance, the plant may be described as a set of coupled 
differential equations and its control system described by a 
block diagram. The program allows the user to analyze such 
a system without converting the subsystems into a common 
representat i on. 

SYMBOLS 

matrices used to define system 
models 

transfer function 
identity matrix 

fractional computational time delay 


GO) 

1 


for sampled- data systems 



R,S 

i 

T 

e 

^i) 

Subscripts : 

CO/A 

exT 

A 

Superscripts: 

c 

d 

T 


dimensions of state, output, and 
input vectors 

matrices used to define system inter- 
connections for MIXED option 
Laplace, , and - transform vari- 
ables 

output and input vectors for block 
diagram portions of MIXED systems 
state, output, and input vectors 
time- sec . 

sampled-data system sample period- sec. 
incremental time period- sec. 
state transition matrix 
integral of (/>a) 

command signal 
external signal 

time index for sampled-data systems 

designates continuous subsystem of 
sampled-data system 
designates discrete subsystem of 
sampled-data system 
transpose of a matrix 
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PROGRAM DESCRIPTION 


CONTROL is a FORTRAN digital program capable of perform- 
ing general analysis of linearized control systems problems. 
It utilizes state variable matrix operations to find system 
eigenvalues, transfer functions, root contours, root loci, 
frequency responses, power spectra, and transient responses. 
Continuous, discrete, and sampled-data system analyses may 
be accomplished. The data Input format Is quite flexible, 
allowing data to be entered in matrix form, block diagram 
form, general parameter input form, or a combination of these 
forms. The analysis options available are listed in Table I. 


The basic systems which CONTROL analyses are 


X = B vA, 

(plant equation) 

( la) 

i H X Fu. 

( output equation) 

(lb) 

u. = XI X 

( control law) 

(ic) 

continuous systems and 

Xv\ "V 

(plant equation) 

(2a) 

= H x„ + 

(output equation) 

(2b) 


(control law) 

(2c) 


for discrete systems. The state vector, x. Is NX dimensional; 
the output vector, y, is NY dimensional; and the input vector, 
u, is NU dimensional. 

To allow user flexibility, additional matrix equations 
are used in the program for definition of feedback control 
laws, etc., and will be discussed later. In all cases, the 
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system equations are reduced to the form of systems (l) or 
(2) before being analyzed. 

CONTROL program analysis is performed in the CNTRLR 
subroutine which is diagrammed in figure 1 . The use of each 
subroutine is briefly described below. 

CARD - reads data cards which specify program options chosen 
LOAD, MATRIX, CHANGE, CLASS - data input subroutines 
LOAD - reads data input matrices 

MATRIX - a user written subprogram which constructs system 
matrices from basic data 

CHANGE - a user written subprogram which changes data already 
in the program. Used for parameter variation studies 
CLASS - constructs system matrices from data describing a 
block diagram of transfer functions 
SETUP - reduces input data matrices to the system equations 
(1) or (2) 

EIGEN - determines system eigenvalues from the A matrix using 
OR- algorithm 

ROOT - performs root loci analysis as a function of two inde- 
pendently incremented feedback gains 
NMRATR - determines numerator zeroes of transfer functions 
defined by the NU inputs, u, and NY outputs, y. 
FRQRSP - computes a frequency response at discrete frequen- 
cies for each transfer function determined by NMRATR 
PSD - computes a power spectrum of the transfer functions 
determined by NMRATR assuming unity variance white 
noise excitation 
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THIST - computes a transient response of the system at dis- 
crete time points 

INPUT - a user \vritten subroutine which constructs the input 
vector to the transient response 
The CONTROL program is on disc in the CDC CYBER 70 system 
and is called by the user with appropriate control cards. To 
utilize the full flexibility of CONTROL, the user may write 
several of the subroutines to perform data preparation for 
his specific problem. These subroutines are: 

MAIN 

MATRIX 

CHANGE 

INPUT 

These subroutines may be compiled in SOURCE language. 

Note that they are not required. These subroutines are 
defined in the program on disc and are overridden by the 
user's source subroutines. If a specific output format is 
desired, any of the CONTROL subroutines may be modified by 
the user and compiled to override the disc versions. A brief 
description of the use of these routines is given below: 

MAIN - Provides variable dimensioning capability. The size 
of all arrays used in CONTROL is declared here and 
passed through COMMON to all other subroutines. 

Thus the size of the system matrixes may be quickly 
and easily changed. The disc program is provided 

with: 
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iyiX=15 = n+ l;n = dimension of maximum state 
iy[Y = 15 = dimension of maximum output vector 
MY = 10 = dimension of maxlmimi input vector 
MATRIX - A user written subroutine which constructs the sys- 
tem matrices. For instance, MATRIX may read the 
nondlmenslonal aircraft stability derivatives, per- 
form axes transformations, dimenslonallze the deriva- 
tives, and insert the proper numbers into the system 
matrixes. General MATRIX routines are available for 
the standard lateral -direct tonal and longitudinal 
linearized equations of motion which are generally 
used at FRC. 

CHANGE - A user written subroutine which changes specified 
elements in the system matrices (which are already 
constructed through MATRIX, LOAD, or CLASS) . This 
routine allows the capability of doing parameter 
variation studies on a basic system configuration 
without having to reload the problem data for each 
variation. 

INPUT - This user written routine constructs the input vec- 
tor for a time history calculation. Thus the user 
may generate step, impulse, ramp, sinusoidal, random 
inputs as desired. A basic routine which simply 
reads 1 card for the input vector u is provided. 

All of these routines have specified calling sequences i^diich 
are given in Appendix 1. Each routine has specific COMMON 
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and DIMENSION statements which are required and which the 
user will not change. The structure of the CONTROL deck is 
shown in figure 2. The job control language for CONTROL is 
given in Table IT. All figures, tables and information 
required to set up data for the CONTROL program are gathered 
at the end of this document for easy reference by the user. 

CONTINUOUS SYSTEM MODELS 

The basic continuous system model which CONTROL analyzes 
is given by (l) and is repeated here: 

X ^ Ax -»■ 

= rtx -t 
— K.l.X'4 

CONTROL analyzes three configurations of continuous sys- 
tem models: open loop, closed loop, and root loci. These 

■t^hpee configurations are under the control of SYSTEM. For 
ease in problem setup, the additional matrices D, hi, 


K4, C, and G are defined. 

Open Loop (SYSTEM = l) 

Cx = Ax + 8u 

+ (3t>) 

Closed Loop (SYSTEM = 2) 

Ck - Ax 

UL- Kix-t K 2 x P^co^ 

= Wx + 6- X +• F* (4c) 


Subscript COM Indicates a "command" signal. Note that the 
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Inclusion of the C matrix allows inertial cross- coupling 
between states. K2 and G allow for state derivative feedback 
and output. D allows for controller Interconnections and 
feedforward gains. 

CONTROL reduces the systems (3) and (4) with the sub- 
stitutions 

^ c‘'a+ «c"e)' (Kl-t kzc'a) 

B - — c^S (i- ica<^'fiT'D 
H ^ H 4 sc-'a-c (F-t sc-'eKr-Kic'B)''D 
F (p^ ec.-'e)(2- Kzc'ey'p 

to the system, 

X • Ax (5a) 

s H X Hr P 

Note that ( h) is Identical to the basic system (l) with u 
replaced by u^^qj^j. Obviously, for the open- loop system D = I, 
K1 — K? ~ 0, and u — u^qI^j. 

Root T.oci (SYSTEM = 3 ) 

Cx * Ax + 8*^ (5a) 

u. * Ka 0 

This root loci model allows root loci as a function of two 
Independent feedback variables. The first feedback variable 
is defined by the matrices K1 and K2 (e.g,, normal accelera- 
tion = -(a - q)). K5 and K4 define the second feedback vari- 

S 

able (commonly K3 ” K4 = O). The condition codes Nl, N2, 
GAINl, and GAIN2 determine the locus gain and number of locus 
points as follows: 
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s r 1 * G'AiHl 

.=] 

*>2.^5^.. - .jNi *J 

Lo, ..., 2 !*^''“*^ ; 

KJl >C> 
N(1<0 

= "t T*- GA1N2. 

•w 

t=J 

1 

1 ) A/Z ^ 

0,1 z A- • 

|Al>o 

f^d<0 


CONTROL computes the closed- loop system matrix as: 

X = Av. 

where 

A * — ■*■ ) 

a' c'A 
b ' <— c -'8 
k'<— < zs ' 

X4g' 

^ K1+ K^A' 

— <B+ K4-A' 


The eigenvalues of A are then determined to find the system 
root locus. The zeroes corresponding to the first feedback 
variable are determined by forming the observation equation: 


where 



H y. i- Tuv 


H = 
f = 


51+ 

MA' , 
KZ 
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A subsequent call to NMRATR then determines the zeroes. 

NMRATR determines the zeroes of the transfer function speci- 
fied by the first nonzero row of these derived H and F 
matrices. If PLOT :^0, an additional data card is required 
for each root locus specifying the maximum and minimum 
axis coordinates desired for the plot (see Table II). 

The continuous system models given above are summarized 
in Table Ill(a). 

F'/irXED Systems 

This problem formulation can be used to model a system which 
is described by a combination of differential equations and 
Laplace transform blocks. An example of such a system is an 
aircraft-control system. The aircraft equations of motion are 
usually known as differential equations while the control 
system is often given in block diagram form. The MIXED option 
gives the user the capability of easily modeling such a sys- 
tem. This option, which is a great convenience in analyzing 
continuous systems, becomes indispensable in the analysis of 
sampled-data systems. There it is used to correctly connect 
the continuous and discrete subsystems and to discretize to 
the continuous subsystem at the proper times. 

The MIXED option involves a two-step data input stream. 

In the first step, the plant equations of motion are loaded 
as an open-loop system. The second step loads the block dia- 
gram control system data (CLASS subroutine) and augments the 
open-loop plant matrices with the control system dynamics. 
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Finally, the tvo subsystems are coupled, together. The open- 
loop, closed- loop, and root locus options are available with 
the MIXED option. 

The CLASS subroutine may be used by itself to construct 
state space formulations of systems described entirely by 
block diagrams. The input format for the MIXED option vlll 
be given after the CIASS loading option has been discussed. 

DATA DECK FORMAT 

CONTROL problem definition is accomplished in CARD. 
Condition codes defining the analysis options chosen, data 
input mode, and data handling procedures are read in a name- 
list format (CODE). Each pass through CNTRLR (figure l) 
defines a case. 

The CONTROL program data deck structure is shown in 
figure 5 . The title card, namelist CODE, output label card, 
input label card, system data, and transient response input 
data formats are given in Table TV. 

The format for entering data using namelist is illus- 
trated in figure 4. Column 1 of each card must be blank. 
Column 2 of card 1 begins the name of the namelist (CODE) 
which is followed by a blank. Variable names in the namelist 
must be right justified with respect to the sign, vari- 

able values must be right justified with respect to the 
sign and be of the proper type (real. Integer). The namelist 
data entry is closed by the code ",&END." 
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The analysis options chosen, data input format, and 
system structure are defined In the namelist, CODE. The 
variables which are defined by the namelist are: 

Integer variables 

READ, SYSTEM, OUTPUT, MIXED, DIGITL, FRPS, MJMERS, 

TRESP, NX, NY, NU, NXC, NUC, ZOH, Nl, N2, CONTUR, 

MULTRT, MODEL, NSCALE, CMAT, NK2, FORM, IPT, IGO, 

SAV, Wl AG, READ3 
Real variables 

DELT, FINALT, IFREQ, FFREQ., DELFRQ, GAINl, GAIW2, M 
These variables are described In Appendix 2. All vari- 
ables are initialized to zero at the start of each case 
(unless SAV = l) and only nonzero variables need be defined 
in the namelist. 

For root locus cases in which plots are requested, one 
card is required for each root locus by the plotter program 
to define the jui scale on the plot. This card(s) follows 
the PLOT CARDS card. 

Figure 1 Indicates that CONTROL will return to the top 
of the program and look for more data at the end of each 
case. Thus data decks may be stacked together to analyze 
many cases on a single computer run. 

DATA INPUT OPTIONS 

The system data may be input in foiir different methods. 
The control loading option is determined by the condition code 
READ: 
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CTiAI^lGE (read = 3) The CHANGE option is meant to be used on 
cases following an initial case. For Instance, on case 1, 
the system matrices are loaded or constructed in LOAD, 

MATRIX, or CLASS. These "original" system matrices (as 
defined at point (a) on case l) may be saved and made avail- 
able at point (b) in case 2. If CHANGE is utilized in case 
2, the "original" system matrices may be altered as desired. 
Thus a parameter variation study may be accomplished using a 
simple CtlANGE subroutine. 

The remaining three options — LOAD, MATRIX, and CLASS-- 
will now be described. 

LOAD (READ = l) The subroutine LOAD reads explicit data 
matrices under the control of the condition codes. Each 
data matrix (e.g.. A) is read row by row with an (8F10.4) 
format. Each data matrix must be preceded by a dimension 
card (2110) giving the number of rows and columns in the 
matrix. For example, a 5 x 5 matrix would require 6 data 
cards (l dimension card, 1 card per row) while an 8 x 9 
matrix would require 19 data cards (l dimension card, 2 cards 
per row). The matrices required are listed in STEP 1 of 
Table V. 
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matrix (read = 2) MATRIX is a user written subroutine 
which constructs the system matrices required by the condi- 
tion codes. These matrices are the same as those given in 
STEF 1 of Table V. Data defined in MATRIX are not destroyed 
by CONTROL. Thus the user may input data to the MATRIX sub- 
routine for case 1 and reuse the data on subsequent cases. 

CLASS (READ =4) If READ = 4 the system matrices are con- 
structed in CLASS from block diagram input data. If MIXED = 1, 
the control system dynamics, in block diagram form, are added 
on to the plant dynamics by the CLASS subroutine. Thus the 
CLASS subroutine has a dual fianction in CONTROL. In both 
cases, the data format describing the block diagram is the 
same. The data format is given as STEP 2 of Table V. Two 
options of inputting the block diagram information are pro- 
vided. The first option describes the block diagram by 
inputting the transfer function polynomial coefficients 
explicitly for general fourth- order transfer functions. The 
second option allows the user to pick standard form constant, 
first-order, or second-order blocks to describe the system. 
These blocks are defined by a small number of parameters and 
are tpi . en Ln Table VI. The first option is used only if a 
particular transfer function fom cannot be foTond in Table 
VI. The first option will not be described. A description 
of the second option begins on page 21. 

The data required to describe a system given entirely 
by block diagrams are sxmunarlzed below. The additional data 
required if MIXED = 1 will be described later. 
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NBLOCK 
GRAPH = 
BLOCK = 

NUPIER = 

DEROM = 

QAIH = 


No. of blocks in block diagram 

Integer matrix describing interconnection of blocks 
Integer matrix describing dimension of nuimerator 
and denominator polynomials of each block 
Matrix of polynomial coefficients of numerators of 
each block (ordered from s° — » s*^) 

Matrix of polynomial coefficients of denominators 

of each block (ordered from s° * s^) 

Vector of gains of each block 
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ITHINY - Integer vector describing which block outputs are 
to be saved in final H matrix 
Allowable forms of blocks: 



Restrictions: 

a. ) Inputs into a type 3.) block must be outputs of a type 

1. ) block. 

b. ) n^ 4 

c. ) Number of blocks ^ 20 
Interconnection of blocks: 

The interconnection of blocks may be described with the con- 
cept of Internal and external Inputs to a block: 

Internal input - an input which is an output of a block in 

the system. 
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External input - any input other than internal Inputs, desig- 
nated by \f . The input to any block may be the sum of three 
or less Internal inputs and one external input. 





The ± indicates that either sign may be used on any of the 
inputs. Whenever an external input is defined, a summing 
junction is implied at the input to the block. 


Problem formulation 


1. Label the outputs of the blocks consecutively 1 = 1,2,3^ 

2. Label the external inputs consecutively , j = 1,2,3,... 

3. Construct the GRA.PH Matrix (dimension WBLOCK x 5) where 
NBLOCK = number of blocks in the diagram: 


GRAPH = 


I 


6L0C1C. IM-TER.WAL 
r/o. 
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A simple example will illustrate the method: 



GRAPH = 


I O I 

a I o o o 


Note that negative Inputs to summing junctions are indi- 
cated by the negative sign attached to the input label. 

The following input data describe the internal composi- 
tion of each block: 

BLOCK - Describes the n\miber of coefficients of the numerator 
and denominator polynomials which will be loaded (di- 
mension NBLOCK X 3). The first column contains the 
block number (the sequence must correspond to the 
sequence of the first column of GRAPH). The second 
column contains the number of nijmerator coefficients 
to be loaded. The third column contains the number 
of denominator coefficients to be loaded. 


example: 



l8 


% 


i 







NUMER (NBLOCK x 5) 

MMER contains the numerator coefficients. 


For the above example; 

NTJMER = -1. 3- 1- 0 

25. 0 0 0 

1 . 0 0 0 

0 1 . 0 0 

10 . 1 . 0 0 

0 1 . 0 0 
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DENOM (WBLOCK x 5) 

Denom contains the denominator coefficients. 
For the above example: 


10. 

- 3 . 

0 

2. 

1, 

25 . 

1. 

0 

0 

0 

1. 

0 

0 

0 

0 

1. 

0 

0 

0 

0 

d 

CM 

1. 

0 

0 

0 

4. 

1. 

0 

0 

0 


GAIN (NBLOCK) 

Gain is a vector containing the gain constants of the blocks. 
For the above example: 

GAIN = [ 5 1 K 2 5 

ITHINY ( < NBLOCK) 

In constructing the system matrices, CLASS constructs the 
output equation 

y = Hx + Pu 

where y is an NBLOCK vector. That is, the output of each 
block is defined as a component of the y vector. Ordinar- 
ily, the user will want to study only a few of these outputs. 
The ITHINY vector "thins" out the y vector. For the above 
example if ; 

ITHINY = [1 3 4 ] 

t / \t 

then y = (z^, z^, Z]^) 
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The second option of defining a block diagram will now 
be described. This option allows the user to pick standard 
fom transfer functions given in Table VI to describe the 
block diagram. Only one data card per block is required to 
describe the system. The option is chosen by setting WIT = 1 
on the first card of STEP 2, The data required to specify 
each block are WTM, TYPE, CONWEC, MOD, PARAM where 
WDM is the block number. 

TYPE is the type of transfer function from Table VI. 

COWWEC specifies the connections between blocks and the 
external Inputs. (This is the last four colimins 
of GRAPH. ) 

MOD specifies whether the transfer function is an 
or w -transform. 

PARAM gives the parameters defining the block as indi- 
cated in Table \TE. 

Following the cards giving the above data for each block, one 
card for ITHIWY is read. 

example: set up the input data required to describe the system 
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The data required are 


5 1 

1 1 0 0 0 1 

251450 
582000 
425000 
545000 
125^5 


0 5. 

0 4 . 10 . 2 . 

0 1. 25. .7 

0 -2. 

0 -5. .1 
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CLASS constructs a state space representation of each Indivi- 
dual block using the phase variable canonical form. For 
example, the first block of the previous example: 


G(S) = 


- /) 

+ + 10 


is modeled as 

x= Ax + Bw 

>^= Hx -i- 

where 



H = [ -5 15 5 o] F = [ o] 


CLASS constiMcts the state space representation of the entire 
block diagram in the following manner: 

1. Write the output vector of the collection of blocks as 

= Fvr 

^ = C 'Hx c'Vtr 

2. Write the state equation describing the Internal struc- 
ture of each block (in phase variables) Ignoring all con- 
nections between blocks and defining the "internal" input 
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vector, u 


X = A X + 8 

5 . Define the connection matrix, G, as 

\K= 

where 

graph = i if U i o -j = a,3,H 

— C) otVey^iae 

4. Couple the blocks together as 

X = (a 4 gGC*H)x 4 ^ 6 Gc'f')\T 
X 4 {'C"'f)u- 

The process of constructing the state variable representation 
is illustrated in the following example. 

example: The operations described above will be performed 

for the system in the diagram. 


li. 
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GRAPH 


1 0 0 0 1 
21-350 
32000 
4 2 0 0 0 
54000 


1. Write the output equation. 


I O O O C) 

O I 0 o o 
0 0 10 6 
O-Kj O I o 
o O O 0 I 


'h'' 




^3 




. .K 



Hx 

000 


Ol. o 0 
Q -C^ O 

o o c? 

o o A 


>1 


Fir 

o 

o 

o 

o 


[1 


= X 


C~T tr 


1 = 


' 0 0 C>* 


x; 

cx. 0 0 


6 

0 

1 

0 

X 

0 

c=vKi ^ ^ 


0 

6 0 d 


0 


U- 


2, Write the state equation of the uncoupled blocks- 
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X 




4. Couple the blocks together. 

X - ^a+6&c'h)x 

' O i O 

X ” - c i 

Q -e 
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MIXEID INPUT OPTION (CONTINUOUS SYSTEMS) 


Mixed systems are characterized by having a portion of 
the system described by a set of differential equations and 
the remainder of the system described in block diagram form. 
The MIXED input option allows these systems to be analyzed 
without requiring the user to convert the system into a com- 
mon representation. Typically the plant equations of motion 
are given and the control system is represented in block 
diagram form. The MIXED option constructs the state space 
representation of the system in a two-step process, the first 
step defining the plait and the second step augmenting the 
system with the control system block diagram data. 



The input-output pairs for the plant and control system 
are designated (u, j) and (v, z) , respectively. The state 
of the plant is x^.’ state of the control system, is 

X2* The blocks YTOV, ZTOU, and YZTOK in the above diagram 
are additional connection data required by CIASS. They are 
used to connect the plant and controller. YZTOK defines a 
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feedback gain matrix to allow a conventional root locus to 
be performed while connections specified by YTOV and ZTOU 
are incorporated directly into the total system A matrix. 
Table V indicates the input data required for the MIXED 
option. 

STEP 1 The plant is modeled as an open-loop system regard- 
less of the value of SYSTEM. (in this case, SYSTEM 
refers to the total, augmented system). 

c, X, + e,iA, 

X., G, X, + Tvy. 


The quantities NX, NY, NU in the namelist must refer 
to this step. Additional dimensions required in step 
2 are added by the program. 

STEP 2 The control system is modeled by CLASS in the same 
manner described in the previous section. The 
required data are: 

WBLOCK, GRAPH, BLOCK, NUMER, DENOM, GAIN, 

ITHINY, ITHIMJ, NYTOV, NZTOU, NYZTOK, YTOV, 

ZTOU, YZTOK. 


The first seven quantities were defined in the last section 
while the remaining quantities specify how the system is 
connected. 

ITHINY - Integer vector numbering, in sequence, those com^ 
ponents of the augmented output vector 
to be saved for analysis. 
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IlHINU - Integer vector numbering, in sequence those compon- 
ents of the augmented input vector to be 

saved for analysts. 

IIYTOV - Number of connections from ^ to vr . 

NZTOU - " " " to \K . 

NYZTOK - Niimber of feedback paths defined (with root locus 
option, the first connection specifies K1 and the 
second connection specifies K5.). 

YTOV - Integer matrix of dimension (NYTOV) x 2. Each row 
of the matrix describes a connection from y to v. 
The first element of a row specifies the component 
of y to be connected to the element of v speci- 
fied by the second element. 

ZTOU - Integer matrix of dimension (NZTOU) x 2 specifying 
connections between z and u in the same fashion 
as YTOV. 

YZTOK - Integer matrix of dimension (NYZTOK) x 2 specifying 
a feedback gain matrix. The first number of a row 
specifies which element of the augmented output 

Is to be fed back to the element of the 
augmented input specified by the second 

number of the row. 

Note that numbers in YTOV and ZTOU refer to indexing in 
the individual vectors 'A.jVT, while numbers in YZTOK 

refer to indexing in the augmented vectors (y ^ , ) 


and 




In all cases, the Indexing is specified 


29 



before any thinning of the output or input has occixrred. 

The CLASS subroutine constructs the state space repre- 
sentation of the control system with the above data. The 
system is: 

-t 


The total system, at this point, is in the form of 
uncoupled diagonal blocks: 
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dimensions are 


where the 

X, 

Xx. 

•4 

li 

VA. 

O' 


- NX 

- Nxl 

- NV 

- NVl 

- NO 

- NOl 
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NXT= NX + NXi 





'i. 


N'lT = Nv Nn 


W. 

\r 


t^ut - NU ^ 


The last three vectors above are the augmented state, 
augmented output, and augmented Input vectors, respectively. 

The system is now coupled together using YTOV, ZTOU, and 
YZTOK. The connections between the augmented input, state, 
and output vectors may be diagramed as follovrs. 



(A 


? ' 
1 

< 





wm ml 



o 










where subscript "com" designates an external "command" input. 


llie dimensions of R2> and S are 

- NO ^ MVl 

- NOl X NV 

s5 - rJ^T X (# oT el«»^€nt* in ITHIN^) 

Rl, R2, and S are constructed according to the rules: 

r 1.0 If TTOI^^ . i') * 3 •, kx i,2, ... , Hnow. 

I C) otK<t\pvi.»« 



\f TTC>V (k ,0 - ^ 
o^Uc. 


av*i VT0V^k,2)».^ 


k- i>a,. ,hincv 



U j..* ITHcRuCp 

6 i'Ucr«^t«e 





i 


The submatrices and R2 will be used to couple and 

A2 while S is used to thin out the augmented input vector 
of unnecessary inputs. Unwanted outputs are thinned out at 
the very end by simply deleting rows of the final H and F 
output matrices (ITHINY). 

The six partitioned matrices in (7) and ( 8 ) are defined 
to be A, B, H, F, R, and S and the system of equations is 
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reduced to the basic system (l) with the substitutions 

A A + 

B <— SR +es 

H <— (I'Fer'H 

F « — 6-‘FRT'f-^ 

Now YZTOK is utilized to construct a feedback gain matrix if 
a root locus is desired. The feedback control law is 

m - Ki K VU 

The feedback gain matrices, K1 and K2, are constructed by 
the rule: 

let YZTOK (1, 1) = 1 
YZTOK (1, 2) = j 

then the jth rows of K1 and K2 are copied from the 
ith row of the output matrices H and P. Thus feed- 
back is defined from the 1th output to the jth 
input . 

If SYSTEM = y (root locus) a second row of YZTOK (if any) 
would be used to construct a second feedback variable into 
K5 and K4, which would define the second feedback of a two- 
dimensional root locus. 

If a root locus is desired in which feedback is defined 
to the jth input, then the jth input cannot be thinned out 
of the system (i.e., j must appear in ITHIWU). 

If SYSTEM = 2 (closed loop) any number of feedback paths 
may be defined in YZTOK. 


33 



example: Set up the system indicated below using the MIXED 


option 



b 


The plant is described by a first order differential equation 
(step l) and the control system is described by its block 
diagram representation. Redrawing the diagram: 



34 





a. If a closed-loop analysis is desired 

VTOY « [, 1 2 1 

tlOU.’ [ ^ 1 1 

will connect the system correctly, 
h. If a root locus is desired 

VTOV - [] 2-] 

'/2-TOK = 1 1 

will provide the required feedback matrix (alternatively 
ZTOU =[21"^, YZTOK = [15"] will also give the desired 
locus, defining the feedback at a different point of the 


system) , 

Returning to the closed-loop system of a. , the resulting 
closed-loop system will be: 
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Notice that the connections defined by YTOV and ZTOU create 
suinming jiinctions. Following the connection of the system 
the input label (e.g., VJJj ) refers to the "external input" to 
the summing jimctlon and not to the "error signal" (output 
of the summing junction) . In many cases these external 
inputs are not of Interest and will be thinned out with 
ITHINIJ. Similar thinning will usually be done on the output 
vector. For instance 

ITHINIJ =[2] 

ITHINY =[i] 

results in the system 



example; set up the system of the previous example to do a 
root locus 
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The above system can be put into the standard root locus form 


by defining 

Yl'OV =-[12] 

YZTOK =[51] 

I 

This results in the system 1 



where K-|^ is the root locus gain. For this system and 
may be thisined out biit cannot be *~hinned out since a feed- 
back variable has been defined to it. No output equation Is 
defined for a root locus case, but the open-loop zeroes of 
due to an input at w., will be determined, 
example: Suppose that STEP 1 of the MIXED option has defined 

a model' of the lateral-directional dynamics of an airplane 
(A^, F^) with the plant input and output .'ectors: 










It is desired to add a control system with actuator dynamics, 
roll rate, yaw rate, and side force feedbacks, and an aileron- 
to- rudder interconnect. Finally, a root locus of the roll 
rate feedback is desired with the yaw rate and sideforce 
feedback loops closed. The block diagram is: 



(The internal dynamics of the blocks are not considered in 
this example since we are concerned wit n the method of con- 
necting the system together.) The augmented input and output 


vectors are 


VA- = 


So. 
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The pertinent input data are 


GRAPH = 


1 0 0 0 1 

24565 
50005 

4 0 0 0 2 

51000 

6 0 0 0 4 


YTOY = 


I 3 
^ 4 

5 5 


ZTOU = 


1 1 

2 2 


YZTOK = 


[8 3 ] 


The loading options which have been described above are sum- 
marized in Table V. 

1 . If READ = 1,2,3 and MIXED = 0, use STEP 1 of Table V. 

The required matrices must be defined via LOAD, MATRIX, 
or CHARGE. 

2. If READ = 4 and MIXED = 0, use only STEP 2 of Table V. 
The required matrices will be constructed in CLASS from 
the block diagram data (GRAPH, etc.). 

3 . If MIXED = 1, the open- loop plant is defined by STEP 1 
of Table V and the control system block diagram added as 
STEP 2 of Table V, In STEP 1, define the open- loop 
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plant as if SYSTEM = 1 regardless of the actual value of 
SYSTET-l, SYSTEM, in this case, refers to the augmented 
system. 

DISCRETE SYSTEM MODELS 

If a system is known in a completely discrete form, then 
the system can be described by a combination of the vector 
difference equations. 



8 

(lOa) 

= <i XvY + 


(10b) 

= WXyy 

f\Ars 

(10c) 


The matrices G, C, K2, and K4 are not defined for dis- 
crete systems. This model is algebraically equivalent to 
the continuous system models (3)> (4), and (6) and allows 
open-loop, closed-loop, and root locus models to be defined. 
The same computer algorithms which were used to generate 
eigenvalues for continuous systems can then be used for the 
discrete system. The resulting transfer fimctlons are Z- 
transform transfer functions. The vector output sequence, 

, corresponds to the continuous system transient response 
and may be generated directly from equations (lO). The name- 
list parameters are defined in the same fashion as for con- 
tinuous systems and all of the analysis options are available. 
To specify completely discrete system analysis, set DIGITL = 2 
and BELT = T where T is the sample period. The completely 
discrete system models are given in Table Illb. Frequency 
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responses are generated in the 'W-plane hy means of the 
bilinear transformation 


^ 1 ^ 

d I — w 

SATIPLED-DATA SYSTEM MODELS 

Sampled-data systems are composed of a continuous dynami- 
cal subsystem and a discrete subsystem. The continuous sub- 
system. Is called tiie plant and the discrete subsystem is 
called the digital controller. Usually, but not always, the 
digital controller will be a dynamical system. To analyze a 
sampled-data system, the continuous plant must be discretized 
so that the two subsystems have a common representation. 
Careful attention must be given to the structure of the system 
in this discretizing process and the interconnection of the 
two subsystems. The MIXED option assimnes a central role in 
the sampled-data analysis with the YTOV, ZTOU, and YZTOU 
options used to define the connections between the subsystem. 

The sampled-data system is block diagramed in figure 5 
in which t>(%^ is the digital controller described by the 
triple and G(s) is the continuous plant 

described by the triple ( plant and 

digital controller dynamics are given by 

= Hex" fc 


4l 


(lla) 

(lib) 











fj 


lA. , 


(12a) 

( 121 )) 


The dimension of is NXC and the dimension of ^ is 

NUC. (The Gx term in the output equation for is 

allowed and has already been eliminated in equation (ll)b. 
These two systems are combined in the partitioned matrix 
form. 




-'i- 


^cl O 
P y AJ 

O ( Rd 


^ n 




P.c.[ 
o > 

y . ?. 

O ' Fj 


lA. 


VA-, 


c 

IK. 


(15a) 


(15b) 


Thus the order of the augmented state and output vectors is 

(a) plant states (outputs) 

(b) digital controller states (outputs) 

CONTROL discretizes the upper left hand (NXC) x (NXC) sub- 
matrix of the augmented system A matrix. 

The plant is generally assiimed to be an open- loop system 
but analog feedback loops may be defined within the plant. 

Any such analog feedback must be defined explicitly in the 
plant A matrix, in YTOV, or ZTOU. Analog actuator dynamics 
and sensor dynamics are included in the plant. Actuators 
and sensors may be modeled in block diagram form using the 
MIXED option. The digital controller will usually be comprised 
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of a simming junction and digital filters. External inputs 
to the plant and digital controller may he defined. External 
inputs to the digital controller are considered to be 

a 

sequences of numbers, > separated in time by the 

c 

s.-miple period, T. External inputs to the plant, , 

are considered as sampled continuous Inputs. The Inputs to 
r.he plant are comprised of the outputs of the digital con- 
troller and the sampled external inputs. These inputs may 
be applied to the plant as 

(a) outputs of samplers (pulse trains) 

(b) outputs of zero-order-hold elements. 

The sampled-data block diagram of figure 5 is capable 
of representing a wide range of sampled-data systems. Figure 
6 shows several of the possible configurations. Figure 6(a) 
shows an operi-loop plant with a sampled (pulse train) input, 
filgure 6(b) shows a closed- loop plant with a sampled error 
signal, figure 6(c) shows a closed-loop plant with digital 
compensation In the feedback path, and figure 6(d) shows a 
closed-loop plant with digital compensation in the forward 
path. Questions arising in the analysis of these systems 
involves the stability of the closed-loop system, the system 
transient response, and the synthesis of (digital) control 
systems, the CONTOOL program allows these questions to be 
studied using the ^-plane root locus, the w -plane frequency 
response (both standard and modified ^-transforms), and the 
system transient response. 
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In order to perform this analysis, it is necessary to 
discretize the plant to obtain a discrete system model of 
the entire sampled-data system. 

The form of the input function determines the proper 
discretization of the plant. CONTROL treats the first ZOH 
elements of as inputs from zero-order-hold elements and 

the remaining (MJC - ZOH) elements of ^ as sampled Inputs. 
Thus the ordering of the augmented input vector is 

(a) zero-order-hold Inputs to plant 

(b) sampled inputs to plant 

(c) discrete inputs to digital controller 

CONTROL discretizes the upper left hand (NXC) x (NUC) 
submatrix of the augmented system B matrix. The first ZOH 
columns of the submatrix are discretized to account for the 
zero-order-hold effect and the remaining (NUC-ZOH) columns 
are discretized to account for the sampling effect. 

The system which results from the discretization of the 
plant is block diagramed in figure 7- All of the sequences 

, etc., are defined at the same Instants of 

time 

-t = yTT * Y\ * . 

However, since the system actually contains a continuous sub- 
system which has a continuous state trajectory it is necessary 
to define the exact meaning of sequences such as . For 
Instance, has the two interpretations 
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(I4a) 

(l^t) 

Which of these two definitions is used has an important 
bearing on the resulting discretized system. The CONTROL 
program assumes 

^ r\ ^ X ^V^T-£^ 6>0 

e-*o 

5 (Y^T) 


The interpretation of these definitions is that; the state, 

, is defined at time t.* nT prior to the application 
of the input, , The updated input, , is applied to 

the system at the sampling instant, . Thus all events 

are timed with respect to as occurring before or after 

the application of 

Figure 8(a) shows the time sequence of events in the 

complete sampled-data system. At t * rT^~ £, , the plant is 

c* d 

sampled to provide and is input to the digital 

controller. Following the computational delay, 6. ^ , the 
digital controller output, , is updated (using and. 


'^exty, 


), the plant input, VA.^y^ , is defined (using and 

applied to the plant. At t- • vCT I- ^ 2 _ the plant 
output is . The time delay may be regarded as 
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an infinitesimal (i.e., the limit goes to zero in eq. (14(a)) 

c 

since the plant responds Instantaneously to . The tune 

delay e, cannot be regarded as an infinitesimal since the 
digital controller requires a finite time to compute the 
update, However, if €,«T it is customary to 

assume — > D 

Figure 8(b) shows the Idealized time sequence for the 
sampled-data system. In this idealized model, events occur 
only at the sample Instants and they occiir Instantaneously. 

To illustrate the discretizing process an open- loop 
first order system will be analyzed. 

-7 
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The state equation of the plant driven by the inputer train is 


X ss ws. 






The solution of the state equation for is 

4>li) X* -h ^ u.“^^r)c)T 


J 9 
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= e Xft 


4 e KXo 


and in general 


e"‘^Xv,4 


( 15 a) 


-t 

The output equation depends upon the choice of output; ov* 


At 


-t = rTT-tf (e ^ 0 




— X, 


(15b) 


At t=v^■f^•£ the impulse at -t-nT will have changed 


the state x to 


KTt€ 1 

€-►0^'- rC[ 

= [<^U)X,x4 

^ /st V« 




Xp = Xy^4 tv,, 

« 1 and 
The output is then 

- X.y^+ VXrx 


Since 


(15c) 


since 0 

The discretized system is given by equations (I5a) and (I5b) 
if is chosen as the output, or by (l5a) and (l5c) if 

is chosen as the output. The corresponding -^-transfer fxinc- 
tlons are 


4 ? 





&(■() * 


-»CT 
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Jl 


osT 


if 




'dn= 


(l6a) 

(l6b) 


An interesting result of this example is that (lob) is the 
standard :^-transfer function (pulse transfer function) of 


e(s) 




Thus to generate standard transfer 


functions for the plant (ll) the following convention should 
be used: 

(17a) 


't''® 'Ir = 




(17b) 


Although this convention will generate correct pulse transfer 
functions, it is not the convention required for analyzing 
closed-loop sampled-data systems. This is evident from the 



This system is replaced by the equivalent discrete system: 
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/ \ 
whose state equation is (assuming 






£• K 



X r\ 


The control law is 








This control law is nonphysical since it requires the digital 
controller to compute, at "t= 6 , a control law requir- 

ing data not available until t’rn (see fig. 8). Thus for 
a closed-loop sampled data system the convention 
can lead to a nonphysical realization of the system. The 
correct convention for closed-loop sampled-data systems is 

since this equation represents the measurements (observations) 
available to the digital controller at the time at vjhich it 
must compute the control law. 

Table VII lists the correctly discretized plant models 
for the various InpuL and output definitions. TableVIl(a) 
gives the models for the output convention and 

Table Vll(b) gives the models for the output convention 
In TableVIl(a) F = 0. This is required for the pulsed input 
since a continuous system with F ^ 0 cannot be driven by a 
pulse train. The ZOH input system (Table VIl(a) ) cannot 
have 0 since this would make dependent on 

and the analysis options of CONTROL are not applicable to 
such a system. 
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The only differences in Table VIl(a) and (b) aj?e In the 
direct feedforward term of the output equations. It Is 
Interesting to note that these terns in Table VIl(b) ( 
for pulsed inputs and for ZOH inputs) will be zero 

if 

a. all input-output transfer paths have at least 2 
more poles than zeroes for the pulsed input system 

b. all input-output transfer paths have at least 1 
more pole than zeroes for the ZOH system. 

Inputs from digital controllers to continuous mechanical 
plants are almost always applied through zero-order-hold 
elements whose outputs drive actuators. If actuator dynamics 
are Included in the plant then there will always be at least 
1 more pole than zeroes for all transfer paths and there 
will be no difference in the two ZOH input cases of Table 
Vll(a) and (b). 

From Table VI the operations required to discretize the 
continuous plant are now apparent. CONTROL replaces the 


augmented system model of equations ( 13 ) with 








( 18 a) 


(I8b) 
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The partitioned submatrices are 

interpreted as follows: The first NXC rows and ZOH columns 

of ® 6^ are copied into the corresponding location of the B 
matrix, etc. At this point the sampled-data system is com- 
pletely discretized and is given by 




A -+ 

8 

(19a) 


F 

( 19 b) 


where the augmented vectors and matrices are: 
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In light of the preceding discussion concerning the 
possibility of defining nonphysical feedback control laws, 
the submatrices K] and must be Interpreted 

carefully. CONTROL does not use or to 
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define connections from the plant to the discrete subsystem 

or to define sampled-data feedback laws. This amounts to using 

c-» 

These submatrices are used in computing '^-transfer functions, 
frequency responses, and transient responses. Thus pulse 
transfer functions such as that of the above example can be 
computed. This completes the discussion concerning the dis- 
cretization of the plant dynamics. 

The sampled-data system has been reduced to a set of 
uncoupled matrix difference equations (19)> The remaining 
step in the definition of the system is the method of con- 
necting the digital controller and the discretized plant. 

These connections are best illustrated by the following exam- 
ples. The examples illustrate the various possible combina- 
tions of continuous and discrete subsystems. Each example 
contains two systems. The appropriate uncoupled state and 
output equations are written for each example followed by 
the equation giving the connection between the two systems. 

The state equations are discretized, the connection equation 
incorporated at the appropriate time, and the final coupled 
discretized system is given. 




instead of 




for these connections. 
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example: Determine the properly discretized and connected 

equations for the following systems. 


a. ) 



1. Original system. 



Coupled system. 



4. Final system.. 
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2. Discretized system. 



5 . Connection equation. 



4 . Final system. 






1. Original system. 



2. Discretized system. 



3 . Connection equation. 



4. Final system. 
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d.) 




3 . Connection equation. 



4. Final system. 
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] . Orir,lnal system. 



2. Connec^.ion equation. 



Final syslem. 
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A close study of these examples reveals that: 

i. ) Connections between two continuous systems must be 
made before they are discretized (a), 
ii, ) Connections to a continuous system from a sampler, 

zero-order-hold, or digital system must be made after 
the continuous system is discretized (b and d) . Such 
a continuous system must have an input defined and 
the connection to the input is specified in a "feedback" 
gain matrix. 

Hi. ) Connections to a digital system from a continuous sys- 
tem may be made either before or after the system is 
discretized (c). The discretization has no effect on 
the connection equation. 

Iv. ) Connections between discrete systems may be made at 
any time since the discretization does not affect 
these systems (e). 

3AMPhED-DATA SYSTEM ANALYSIS USING THE MIXED OPTION 

The use of the MIXED option of the CONTROL program to 
model sampled-data systems may be described now. The MIXED 
option involves a two-step process in which a set of linear 
differential equations are augmented with a block diagram 
control system. 

Sampled-data systems Involve a continuous subsystem, 
the plant, and a discrete subsystem, the digital controller. 
The CONTROL program constructs the sampled-data system model 
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hy dei’ining the plant in S'lEP 1 and the digital controller in 
?Ti<;p 2 of the MIXEl') option. It is not required that the plant 
correspond completely with STEP 1 of the MIXED option. For 
example, the block diagram control system (STEP 2) may con- 
tain a mixture of Laplace transformed blocks (actuator and 
sensor dynamics) and ^-transformed blocks (the digital filters 
of the digital controller). The Laplace transform! blocks are 
thus part of the plant. Conversely, difference equations 
defining digital filters may be written explicitly in the A 
matrix in STEP 1. The required ordering of Inputs, outputs, 
and states is given in Table VIIl(a) , This ordering produces 
a preliminary s;ampled-data system which is a composite of 
the system of equations (?) and (ij). (Due to the possibility 
of defining part of the plant in STEP 2, the correspondence 
between vectors (e.g., x, in eq. (?) and in eq. (l^)) is 

not exact. ) 

This prelininary system is connected together by connec- 
tions specified in YtllV, ZTOU, and YZTOK. In light of the 
results of the examples given above, provision must be made 
for making some connections before the plant is discretized 
and ‘■he remainder after the discretization. To achieve this, 
the following sequence of operations is performed: 

1.) YTOV and ZTOU connections completed 
il.) plant discretized 
iii.) 'KTOK defines feedback gain matrix, K1 
Iv.) feedback gain matrix, Kl, incorporated into total 
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system A matrix ( closed- loop analysis) or used to 
perform a root locus 

Thus connections which must be completed before the system 
is discretized are defined in YTOV, ZTOU, GFtAPH, or the 
matrix of STEP 1, Connections from discrete systems to the 
plant (which must be made after the plant is discretized) 
must be defined in YZTOK. Table VIII(b) summarized the types 
of connections allowed and how they must be defined. &(S) 
and DM represent continuous and discrete subsystems, 
respectively. The sampled-data system model and its con- 
struction are given in Table IIl(c). The step indicated in 
Table 111(c)(4) is the critical step in constructing the 
sampled-data system model. This step connects the digital 
controller to the plant in the correct manner. If a ix)ot 
locus is desired, this step defines the appropriate feedback 
gain matrix. If a root locus is called for, then the first 
connection specified by YZTOK will generate the feedback 
gain matrix, Kl, and the second element of YZTOK (if any) 
will generate a second feedback gain matrix, K^. The control 
law is then 

Kl 

and Kl, would generate a root locus grid. 

The formulation of the sampled-data system is Illustrated 
in the following examples. 

example: A lateral-directional aircraft plant with a roll 

rate feedback to a digital controller is to be modeled. The 
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block diagram of the system Is: 



The block diagram is comprised of a pilot input gain, a digi- 
tal filter, a zero-order-hold, and the aileron actuator 
transfer function. The aircraft state vector and output 
vector is = x and the aircraft 

equations of motion are input to CONTROL in STEP 1. The 



STEP 1 defines the aircraft with w. = Sy') • In STEP 2 

the actuator block input and output must be numbered first 
since it is part of the plant. The appropriate data for 
STEP 2 is: 


6l 
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YTOV 


[ 1 5 ] 

ZTOU [ 1 1] 

YZTOK [6 3 ] 

The pertljient namelist paLPameters are 


•pl&nL - i , MXC- 5 , HOC - 3j 5^ 

(other parameters are required to specify STEP 1 and the 
analysis options chosen. ) CONTROL sets the system up as 



The connection from to the summing jionctlon before the 

zero-order-hold Is constructed as a feedback control law 



Ki X 
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-So. 0.0. 
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If SYSTEM = 2 , this "feedback" connection is completed 
and closed- loop :^-transfer functions, v/-plane frequency 
responses, or transient responses may be obtained. If 
SYSTEM = the feedback gain matrix Is used to calculate 
the ^-plane root locus. 

The ITHIEU vector In the above example specifies that 
only the and Tth elements of the aiigmented Input vector 

will be retained. The Jrd element ( vr, ) must be retained If 
SYSTEM = 5 since a feedback Is defined to this Input. If 
Is not retained the root locus could not be obtained. 

COMPUTATIONAL DELAY AND MODIFIED J -TRANSFORMS 

The digital controller requires a finite time, , to 

compute the updated command signals to the plant (fig. 8(a)). 
The preceding analysis has assumed that €, «T • If 
this condition is not met the computational delay may be 
critical to the system stability. The modified ^transform 
allows this case to be analyzed using open- loop frequency 
response techniques. A linear analysis of a sampled-data 
system requires that all events pertinent to the system 
(state. Input, output) be defined at one Instant In time, 
the sampling instant. But If £ ^”T , the digital filter 
computes commands based on the system output at time Y^-£| , 
while the plant state Is defined only at time nT . The 

situation Is shown In figure 9* At i.* Vn- OT , the digital 

c 

controller samples the plant output, Inputs 
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. The digital controller then computes the updated 
plant input . This requires ( I -'Wv')! seconds where 0< i 

If = 1 there is no delay and if = 0 there is a one 


sample period delay. 

The output is dependent upon the state of the 

“ c 

plant at (n-l)T and the form of the input t*. from 

to t » )) T , If the input to the plant is 

from a sampler then 


- W 




’ 20a) 




where 


= 




If the input to the plant is from a zero-order-hold then 


where 



In either case, is described by (20a) or (20b) as a 

linear combination of aj^d " Modified ^-trans- 

form analysis is performed by idealizing the time sequence 
model of figure 9 and considering and the digital 

controller update that it generates to occur instantaneously 
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with the plant update at t.= r\T 
model tor sampled inputs is 


. The resulting system 


-t (21a) 

(>->)= H + (21b) 

The ■^-transform of (2l) yields the transfer function matrix 

whene 

= ^ [ H (|>(wt')[(^ 1- (JitT)) '4'rt 8+ 

Thus the model of equations (2l) will generate modified 
^-transfer functions with the identifications 

A ^ 

6 ^ <j>d)B 

H .. — 

F — H ^ ^ 8 

A similar transfer matrix may be derived for zero-order-hold 
input s . 

The resulting ^-transfer functions which the CONTROL program 
generates must be multiplied by to account for the 

sample period delay in the output equation (21b). 
example; find G* 6^) — 
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The plant equations are 

X -= ^ 


then 




e 


^ - e 


-ovwCT 


and 


-(vT 


-eA 




= e Xy. -t e vA«v 
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^OvVrCT 
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e--' 


To obtain modified '^-transforms of open- loop sampled-data 

systems the parameter m must be specified in the namelist. 

c"^ _ t ^ 

If m = 1. the standard ^-transform will result if ~ ^vn 
N umerical errors limit w\ to W\ > -2. All other namelist 

"Darajiieters required for sampled-data system analysis are 
unchanged. Only open-loop analysis can be accomplished with 
f>(\ ^ 0. Digital filters may be cascaded with the "open loop" 
plant using the MIXED option as described above. If the 
digital filter output drives the plants recall that a quasi 
"closed- loop" system is set up with YZTOK defining a "feed- 
back" law and SYSTEM must be set to 2. Table Airi(c) lists 
the modified '^-transform models. 
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METHOD OF ANALYSIS 

The methods of analysis used by the CONTROL program are 
summarized in this section. 

Frequency Response and Pover Spectra 

The basic system equations ((l.) or (2,)) may be trans- 
formed to yield 

fX(p) = AX(p)+ (22a) 

V(p)> HX(p)-t (22b) 

where ^ ® or depending on the type of system. Equation 

(22) is rewritten to display the system transfer matrix, 

V Cp) — & ( ^ co»p» C f ) (2S) 

where 

G(p>. H(pi-/\y'B+F 

The transfer matrix, G( p) , is an NY * matrix of 

transfer functions. If transfer fmctions and/or frequency 
responses are requested, CONTROL computes these /nv)(nu) 
functions . Frequency responses are generated at discrete 
frequencies in the following manner: 

1. Continuous systems - &(p1 = &(0 . The fre- 
quency response of the output due to the jiV* input 

is generated by setting 6«^ in allowing iw 

to take on discrete values as specified in Appendix 2. 

2. Discrete and sampled- data systems - G(p) « G-Cj) 

Frequency responses of ^ -transformed functions are 
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accomplished either in the w -plane or the -plane under 
the control of FRP3. If FRPS = 1, is transformed 

to a Nv -plane transfer matrix, G(.v/^ , hy the trans- 

formation 

H 

The frequency response is accomplished by the suhstltu- 
tion discrete points along the positive 

Imaginary axis in the w -plane. 


If FRPS = -1, the frequency response is accomplished by 
the substitution *^<1 coi wT +^4mt«>T at discrete 

points along the upper unit semicircle in the -plane. 
'J'he advantage of the w -plane frequency response is 
that asymptotic Bode plot methods may be used. (This is 
due to the frequency response being a polynomial function 
of the frequency. ) 

Continuous power spectra - eCp’)* GrUO 

Power spectra are computed for continuous systems from 
the relation 


where -S (u>') and «Su,(w) are the power spectra of 
the output and qtV> input, respectively, and (s) 

is the corresponding transfer function. CONTROL assumes 


that 



l.e., the input is unity variance white noise. Thus, to 
compute power spectra, a "shaping filter" will usually be 
added to the system dynamics and driven by the white 
noise input. The output of the filter then drives the 
system with the desired spectral content. 

Eigenvalues 

CONTROL uses the QR algorithm to determine the system 
eigenvalues, HESSEN transforms the matrix to upper 
Hessenburg form. QREIG then determines the eigenvalues 
via calls to QRT. The subroutines QPEIG, HESSEN, and QRT 
are contained in the IBM Share Program No. ~^ 006.01 written 
by P. Imlad Pawzl and J. E, VanNess, Northwestern Univer- 
sity. The Q,R algorithm is discussed in reference 1. 
Transfer Function Numerators 

CONTROL determines the transfer function numerators as 
the eigenvalues of a matrix derived from the A, B, H, and 
F matrices. Details may be found in reference 2. 

Transient Responses and Discretization of Sampled-Data 
Systems 

To compute transient responses of continuous systems and 
to discretize sampled-data systems, the transition matrix 
and its iategral are required. They are computed in the 
EAT subroutine by summing the partial series 

I + i i'. 3! ^ ^lA^i 

- ^ a It + \\ 3( -♦•••• •» il A i 
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The series are terminated when the last terms in both 
series cause changes to each element of both series less 
than 10“-^ times the respective element or when the series 
has not converged in 24 terms. 

In the computation of (t> for sampled-data systems, it 
is common to have eigenvalues whose magnitudes are comparable 
to the half- sample frequency resulting in slow convergence of 
the series. In this case, the user does not have the flexi- 
bility of using a smaller integration step size since the 
sample period is fixed. To help alleviate this problem, 
CONTROL computes C|)(T/8) and and then finds 

and as 

= ®CT/«)r i2 


Details may be found in reference 3. 

Transient responses for continuous systems are calculated 
using and as 

HxC"T") t F 'J-lxb 

Where is defined in the INPUT subroutine. The 

input, } 4s held constant between sample periods. 

Transient responses for discrete and sampled-data systems 
are computed in a similar manner from the difference equations 
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given in Table VII. 

For sarnpled-data systems, the MULTRT option allows the 
user to compute the intersample response of the system. The 
system Is then described by: 

H Xv> t 

where ^ and Q are obtained by discretizing the plant for 
the time period, T/MULTRT and va.,^ Is up>dated every T seconds. 
That is, the plant is discretized as though the sample period 
was T/MULTRT but Is held constant over T seconds. Thus, 

MULTRT Intersample transient response points will be computed. 
Only transient responses are allowed with this option. 

Digital Filtering 

In synthesizing sampled-data systems, much time and effort 
can go into the computation of digital filter coefficients 
to give desired filtering to a signal. The CONTROL program 
allows the user to choose from a table of standard filters 
(Table VI) the filtering action he desires. The filter may 
be specified In the s, , oy w -plane. The transformation 
of s - and w -plane filters to ^-plane filters can be carried 
out automatically by the program, allowing the user to draw 
upon experience In analog filtering techniques. The trans- 
formation of a -plane filter to a ^ -plane filter is accom- 
plished by replacing vy by 
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The transformation of an iS -plane filter to a w -plane filter 


VJC - to.>sV> 


where <x is the s -plane first order pole or zero and u, is 
the corresponding w -plane pole or zero. For complex poles 
and zeroes 

(it 

the transformation is 



where 

• V + V ^ 

5 W ^ 

COS]r\^t^^) -t C.Oi(^T') 

^ ) 

to*K (oft) -t c»*^|[9T) 

with 

= - fw 


Digital filters derived from this two-step process (called 
the bilinear transformation with frequency prewarplng) 



maintain a close resemblance of the original s -plane filters 
over a wide range of the half- sample frequency. References 4 
and 5 give discussions of digital filters. 

Model Following - If MODEL = 1, CONTROL computes frequency 
responses appropriate to the evaluation of model following 
systems. Let be the model output, be the model 

follower output, and let the model have Inputs U,,, and u,^ • 
The CONTROL program will compute the frequency responses 
(with FRPS set appropriately) 

1 



Thus, with MODEL set, CONTROL will provide the frequency 
responses 

1 ..,^ f 

’ I X= I, 

In addition to the standard frequency responses. 

Similarity Transformation - Numerical problems In calculating 
eigenvalues can sometimes be traced to the eigenvalues of a 
matrix being small compared to its norm. In this event, 
diagonal similarity transformations may aid In eigenvalue 
computation. For the autonomous system 
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x = Ax 


(24) 


a similarity transformation is defined as the change of 
variables 

for 9 nonsingular. The system (24) becomes 

Px* PAP'^= 

I -/ a ' 

with . The matrix f\ has the same eigenvalues 

as f\ and if P is chosen properly, A* will have a smaller norm 
than A . 

The CONTROL program includes an option (NSCALE) 171101 the 
user may select if numerical problems are suspected in eigen- 
value computations. In order to maintain the same input-output 
relationship, the program performs the following operations 
when the A matrix is scaled. 

pe — e 

HP"‘ —> w 

K3F'' — » K.3 

The scaling technique is described in references 6 and 7. 

PROGRAM SIZE AND TIMING 

The CONTROL progrcam requires 131 Kg words of computer memory. 
It has operated on a GDC CYBER 70 computer utilizing a 
segmented structure which reduced the memory requirement to 
72 Ko words. Included in these size requirements is memory 

O I 

allocated to data matrices for maximum state, output, and input 


75 



vector dimensions of 15, 15, and 10, respectively. The data 
matrix storage requirements are a function of the system 
dimensions4 


The example program of the next section was executed on the 
CDC CYBER 70 and required 17 sec. of CPU execution time 
to generate the problem setup and calculate ten transfer 
functions, ten frequency responses, and a transient response. 
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EXAMPLiE PROBLEM 

An example problem is given to illustrate the problem 
formulation, data deck, and output listing. The input and 
output listings are given in Appendix 5. The problem 
involves a lateral-directional airplane model with a control 
system consisting of aileron and rudder actuators, a roll 
rate feedback to Sow , and yaw rate and side force feedback 
to through a washout and lead- lag filter, respectively. 
The system is shorn in the block diagram. 







The airplane equations of motion are 
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the control system Is descrlhed using the MIXED option and 
frequency responses and transient responses are obtained for 
roll rate and yaw rate. 
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CONCLUDING REMARKS 


A FORTRAN digital computer program for the analysis of 
linear continuous and sanpled-data systems has been described. 
The program features a flexible input format allowing the 
program user to define systems in a variety of representations. 
All systems are analyzed using state variable techniques. 
Analysis options of the program are: transfer fimctions, 

frequency responses, power spectra, root loci, root contours, 
and transient responses. 

Dryden Plight Research Center 

National Aeronautics and Space Administration 
Edwards, Calif. . January 12, 1976 
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APPENDIX 1 


FORTRAN LISTING OF CONTROL 

A brief description of the various subroutines of 
CONTROL follows: 

CONTROL - is the MAIN subroutine as described on page 5. 
ADD - performs matrix addition. 

A SC AT, F. - scales the A matrix with a diagonal similarity 
transformation. 

CARD - is described on page 4. 

CHANGE - is described on page 6. 

CLASS - is described on page 4. 

CNTRLR - serves as the executive routine for CONTROL. 

CPMT - computes complex roots. 

EAT - computes the transition matrix and its integral. 
EIGEN - is described on page 4 
FRQPSP - is described on page 4. 

HESSEN - transforms a matrix to the upper Hessenburg form. 
HTPUTV - is the INPUT subroutine described on page 6. 

INVR - determines the inverse of a matrix. 

LOAD - is described on page 4. 

LOADl - is used in conjunction with LOAD to load the 
system matrices. 

MAKE - makes two matrices equivalent. 

MATRIX - is described on page 4. 
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MULT - performs matrix multiplication. 

NMRATR - is described on page 4. 

PSP - is described on page 4. 

OREIG - determines the system eigenvalues. 

OPT - is used in conjunction with OREIG. 

RDISC - reads input matrices from the disc storage units. 

RDISCl - is used in conjunction with RDISC. 

REDUCE - determines the irreducible submatrices of a 
matrix (used with ASCALE) . 

ROOT - is described on page 4, 

SETUP - is described on page 4. 

SPIT - outputs matrices on the printer. 

SPITl - is used in conjunction with SPIT. 

THIST - is described on page 5. 

(starts at label SPITl l6) 

SWZ - transforms s-and w-plane filters to z-plane filters. 

TANG - computes complex arc tangents. 

WDISC - writes input matrices on to disc storage. 

V/DISCl - is used in conjunction with ¥DISC. 

ZOT - initializes the system matrices to zero. 

ZOT 1 - is used in conjunction with ZOT. 

ZTOW - converts z-plane transfer functions to w-plane 
transfer functions. 

COPO - plots data on CALCCMP plotter. 

READO - plots zeros for a root locus. 

CSTAR - contains envelope curves for the C* options. 
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SUBSCL - computes the scaling factor for root locus 
plots. 
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46 


IF ( M. NF ,1 ) GO TO 7 0 

ASCALE 

47 


P(M < I , 1) 1 =1, 0 

A scale 

48 


GC TC ICO 

ascale 

49 


70 CONTINUE 

ASCALE 

EO 


DO s: n=l.NI 

ASCALE 

51 


nn Ti jj=i,Ni 

ascale 

2 


an I, jj) - a(m(i,ii),m(i,jj»» 

ASCALE 

53 


51 CCNTIM'f^ 

ASCALE 

04 


DIBAP< II) = ), C 

ASCALE 

= 5 


o (M{ I, II ) 1 =1. 0 

ASCALE 

5 6 


EC CCNTINUF 

ascale 

f 7 


tCTCCsP 

ASCALF 

?6 
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'UHOOUT INF 

HZ CAL 

“ rr/7^ OPT=i 

FTN 4,?f7G060 01/0B/7F 

1 5. ER. US 



<* " 

ASCALE 



4 

00 10 II=1,NI 

ascale 

f D 

f-G 


SflPT=0 .0 

A SCALE 

61 



par p = 0.1 

ASCAL"* 

62 



nc ?o 10 = 1 , Ni 

A scale 

F3 



IF (Il.t ri.IPJGC TO ?0 

ascalf 

EU 



9 aip=9 aiP*o( II , iPi**2 

A SC AL E 

65 

-6 


sapi = capr*B(iP,in**? 

A scale 

66 


?c 

CONT TNUf 

ASCALE 

67 



01 TTY=SnPT(SaPI /RAI“) 

A scal 

68 



oinafianrSQRT (dittv» 

ASCALE 

69 



nioa9i=i. o/oiR*R<ii» 

ascal ■ 

70 

70 


p (M ( T ,11) ) = o IH II ,in »*OIBA9lin 

ASCALE 

71 



DO L=l,NI 

ASCAL*^ 

’2 



RUr ,U = B< II , L> *OIRAP( III 

A scale 

73 


50 

CCNT IME 

ASCALt 

74 



no L=1,NI 

ascal E 

75 



0(1. in=R(L.II)*DIRAPI 

ASCAL'^ 

76 


40 

CONT INUF 

ASCAL'' 

77 



K=K + l 

A SCAL ' 

78 



IF ( (PI0ftR( m» ,LE. ri,*STOP|IICTCO = ICTCO + l 

ASCALE 

79 



IF ( nOTPAR ( T I ) ), GT. tl • ♦STOP) IICTCC-O 

ASCALE 

ao 

«0 


IF ( ICTCO ,F0,NI) GO TO 3 

ascal^- 

81 


10 

CCNT TNIJF 

ASCAL' 

62 



IF (K.LT.UOl GO TO 4 

ASCALE 

6 3 


.5 

CCNT INUF 

ASCALE 

64 


100 

CON T INUF 

ASCALE 

85 

«5 


DC bO I=l ,N 

ASCALE 

H6 



no b3 L=1»N 

ASCALE 

87 



AIT ,L) =P (I) (I ,LI/P a I 

ASCALE 

88 


so 

CCNT INU«: 

ASCALE 

aq 



IF ( TPT, LT. 11 GO TO 200 

ASCALE 

PO 

TO 


WRIT" n,?oi» <pm,r»i*Ni 

ASCALF 

91 


201 

format (/ICX,* THE DIAGONAL TRANSFORMATION 

HATRIK IS*/40X, (€20,811 ASCALE 

0? 


200 

CCNTTNLtr 

ASCALE 

9 3 



RETURN 

ASCAL' 

94 



END 

ascal^ 

c r 
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«:unPnun^E CARH 


7-^/7U 


OPT=t 


FTN .. ?«-r5(560 


01/09/7ft ll. 59 .i 4 R 


5 


10 


15 




30 


35 


UO 


•^0 


55 


SUOROUTIMt CARO 

COMMON/rOND/PFAn.SrSTeM,OUTPilT,NK ,NY »NU. NX C ♦ NUC , Nl , N2 ♦ OICITL » 

I nCNTUP.NOHFRS.FRPS, T®ESP »Nncet ,NSCALE*SAV» CHAT ,NK?, I FLAG. 

1 rOO, FOPH, lPT.P«^AOii HtX£n,MULTPT,SCAPLT.ZOH,XOUKT 
TKT^r.rP pran, SVSTFH .OUTPtIT.FOPM.CCNTUR.S AV * CH AT , RF AP3 , FRPS.TRESP 
iNTPf.PP niGITL* "^CAPLT. 70H 

CCMMCN/ACONn/0€LT,FINALT,lFRPC.FFFfO*OELFRO, GAIM.GAINP.M 
CC^'PCN/LaPFL/IKPl^OUTpT.TTTt^ 

C0M>1QM/5:URNRIT/ ISU9KAM 

RFAL iNPTdOI. OUTPT 1201, TITUEtS) 

REAL rFff'O.M 

NAUfLI ST /COOP /»FAO,SYSTEM.nUTPUT,NX.NV,NU, NXC.^UCtNl ,N2.0ir>lTL. 

1 CONTUR.NUMPPS. FPPS. TRE SP.HODCL .NSCAtPtSAV, CHAT ,NK?* IFL AC, IGO . 
2FORM.IPT ,REA0 3.KOUNT ,0 ::lT,FINALT , IFREQ »FFR£Q, OELFRQ, GAINl, GAIN2, 

1 MX :r.Mi)L TRT.SCAPLT, 
u/OH, >», TS*>BNAM 

IF(T‘'UnNAH,GF,2) WRITE n» 990 1 

OATA PST/IOHPOCO / , PLOT/ 1 OMPLOT / 


CARO 

CARO 

CARO 

CARO 

CARO 

CARO 

CARO 

CARO 

CARO 

CARO 

CARO 

CARO 

CARD 

CARO 

CARO 

CARO 

CARO 

CARO 


qon FCRMAT (t X , *C ARP*» 

1 rOPMAT (SAlft) 

2 FCPHAT <«40I2) 

IF ikount.ne.d go to 10 
WRITF n.llT 

11 FOPHAT (/,“ CONTROL PROGRAF PERHAHFNT FILE JWELIB.CYFlE 13* 

IHUARY 1,1976 “t/* 

I? CCNTINLF 

IF fCONTUR.EO. l.ANO.KOUNT. GT. 1 » GC TO 5 

RE*0 U tl > TITLE 

IF (TITL :m,EQ.PLOT) GO TO 100 


IF (EOF(U,NE,OJ STOP 
HPIT- (X,?j TITL*" 
for * 1 AT I IHl, ftAl 0> 

IF IIFLAG ,E0. S .ANO.KOUNT.GT. 1 1 RETURN 
REAO (I, CODE* 

14C FORMAT { IOX,»CONTINUOUS SYSTEH*! 

141 FORHAT ClOX ,*S ANPLEO^OATA svftfm*i 

142 FOPMAT ( lOX, ♦DISCRETE SYSTFM*! 

243 FORMAT HOY, •MIXED OPTION*> 

14X FORMAT t I 0 X , • QPE N L OOP* » 

14*. FORMAT (IOX,*CLOSEO LOOP*! 

145 FC--AT <10X,*RC0T LOCUS*! 

245 FOPMAT MOX,*POOT CONTOUR*! 

14( FORMAT aOX.*LOAD ROUTINE TNOtT*! 

14? FORMAT <iax,*MATRlX ROUTIN*- I6FU1*I 
14fl FOR^^AT (10X,*CHANGE ROUTINE INPUT*) 

14*^ FORMAT li0X,*CLASS ROUTINE TNFlT*) 

151 FORMAT ( 10X,*TRANSFER FUNCTIONS*) 

15? F0P«A'^ (10X,*EIGENWLUES*! 

15.1 FORMAT ( lOX,*FREOUENCy RESPONSES*) 

154 FORMAT tlOX,*POWFR 3 p£CTRA*! 

155 FOP‘<AT aOX,*TRANSI£NT RESPONSES*) 

IS = Oir.ITL*l 

GC TO n70,l71 ,172! t IS 
17D WRITE (1,140) 

GO TO 

171 WRIT^ (3,1411 

GO TO ?0fl 



CARO 

CARO 

CARO 

CARO 

CARO 

CARO 

CARO 

CARO 

CARD 

CARO 

CARD 

CARO 

CARO 

CARO 

CARO 

CARO 

CARO 

CARO 

CARO 

CARO 

CARO 

CARO 

CARO 

CARO 

CARO 

CARO 

CARD 

CARO 


2 

1 

4 

5 

6 
7 
A 
9 

10 

11 

12 

n 

14 

15 

16 

17 

18 
19 
2P 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 
11 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 



TuTiKf 

C&90 77/74 OPT=l FTN ~4.?4 750br 

01/ 09/76 

1 3, Fq, 4P, 


17? WPIT:. (.7,14?) 

CARO 

6 9 


? 0 D IF (Miyrn ,F9. n wpite 

:ard 

eo 

f r 

9n TC (1 77, 1 7<», 1 75) , StSTFM 

CARO 

f 1 


177 HPITP (7,147) 

CARO 

e? 


r.c TO ■’01 

CARO 

67 


174 WF IT- (7 , 14w) 

CARO 

64 


00 TO ?:i 

CARO 

66 

cr« 

17 E WRITr (7,146) 

CARO 

66 


?01 GC TC (1 76,1 77 .1 78,1 79) ,R6ftn 

CARO 

67 


176 HPT TF (3 , 146) 

CARO 

fcS 


GC TG ?0? 

r ARO 

69 


177 writ: (7,m7) 

C ARO 

70 

70 

GC TO ?0? 

CARO 

71 


1 7 ‘I HF IT- (7, 14«) 

CARO 

72 


GO TO ?C? 

CARO 

73 


174 wRIT^ (7,149) 

CART 

74 


^0^ IF ( 75 , rr), Q, NF, 3, A)>D,CCMUR. EO, C) MRHF (3,151) 

C ARO 

75 

7-S 

IF r ^UMF'?S ,E0. 1) MRITE (7,152) 

CARO 

76 


IF (CONTUR .£0, 1) MRITE (7, >45) 

CARO 

77 


IF (FPPG ,EO, 1 .OR. FRPS .FO. -1) MRITE (3,153) 

CARO 

78 


IF (FRPS ,FQ. ?) MRITE (7,154) 

CARO 

79 


IF (Tpcr;p ,Ni, 0) WRITE (3,165) 

CARD 

80 


WRI (7,16 0) NX,REAO,TRFSp,CMAT,DELT,NV,SYSTEM,FRPG ,NK2,FTNALT, 

CARO 

81 


1 NU.M IXfD .NUMc RS,IFLA G, I FREQ tHXC.OLTPUT, FOR)), IGC.nfLF PQ,NUC,0 IGTTL 

. CARO 

8? 


’COM T HR ,R : A0 7, FFREQ, 7 0H, IPT , MULTRT ,SA V ,GA INI, Ml ,KOUMT ,H00 'L.NSCAl: 

, CARO 

"3 


7GA IM?, 

CARO 

84 


153 1//ICX,*NX =• ,14,11 K, *REAC * *, 14 , 8 X » ♦ TRESP **,I4,8X, 

CARO 

85 

ns 

1*C*«AT = T4, RX,*0£LT * • , F 7 . 3/ 1 0 X , * NT = • , 14 , 1 1 X , »S YS TEM =• . 

CARO 

86 


? 14, X ,*FPPS =♦ ,I4,«X ,*NK? ■=• ,I4,8X,*FIWALT **,F7.3/IUX, 

CARO 

87 


7»NU =*, 14, 1 1 X, ♦HIXEO a*, 14, 8X, *^UMFRS = • , I 4 , 8X , * I F L A G =*,T4, 

card 

88 


48x,*IFRF_Q , F7, 3/1 ox , *NXC a* , 1 4 , U X ,♦ OUT PUT a* , I-. , S X , » F OR H *• 

, CARO 

89 


614. 77, *100 =*,I4, 8X,*0ELFRQ a* ,F7. 3/10 X, *NU C =*,I-,,11X, 

CARO 

QO 


S*OIGITl. =*, I4,8X,*C0NTUR = * , 1 4 , 8X , *R fAD 3 »• , I 4 ,8X ,* PF Rf 0 «• , 

CARO 

91 


7F 7, 7/1 OX .* 7QH *♦, 14,11 X ,♦ IPT =* , l4 , 8 X, ♦ HU L T P T =*,I4,8X, 

CARO 

92 


7*6AV =♦, I ■,,flX,*r,AIN t a*,F7. 3/lOX, *N1 a • , l4 , 1 1 X , •>< OUNT 

CARO 

9 7 


9 14, 7X, ♦HOOFL = • , I4 , 8X , SC fl t E -• ,I 4 ,8X ,* GA IN ? a*,F7.3/10X, 

C ARO 

94 


l*N? =*,I4,71X,*M =*,F7.3) 

CARO 

95 

95 

IF (mijLTRT.GT.O) OFLT* DELT /mul trt 

C ARO 

96 


IF (NY. £0.0) GC TO 50 

CARO 

97 


IF ( HIXEO.NE. 0. AKD, NY. LT. 8) GO TO 5ft 

CARO 

98 


REAO ( 1, IMOUTPT(I) ,1*1 »NY) 

CARO 

99 


IF (-'OF(l ),N£. 0 ) STOP 

C ARO 

100 

1 00 

on TC 61 

CARO 

dl 


RFAO (1,1) (OUTPTd) ,1=1,8) 

CARO 

1 02 


IF (£OF(l ),NF. 0 ) STOP 

CARO 

1 7 


51 IF (NII.EQ.D) go TO 5? 

C ARO 

1 P4 


IF ( XF O.N F . 0 .AMO.HU.lt .8 ) GO TO 62 

CAPO 

1 ’5 

105 

PEAD (1,1) { IHFTd) , 1= 1, NU) 

CARO 

t C6 


IF ( 'OF( 1 ) .Nr. 0) STOP 

CARO 

107 


GC TO 63 

CARO 

1 


6 ? RFflon d),I=l, 8) 

CARO 

U9 


IF (FOFd),NF.O) STOP 

CARO 

110 

1 10 

63 COMTINUP 

CARD 

111 


RFTUON 

CARO 

1 1 ? 


303 CALL COPO 

C ARO 

113 


STOP 

CARO 

114 


F P6AO (1,1) TI TLE 

CARO 

115 
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suePouTiN*- 

r apf 

7T/7i» nPT»l 

FTN u. ?f75CGr 01/39/7J 

U .‘n9,w‘5 

11*; 


IF C^OF ( n .Nt . 0) GO TO 9« 

:aro 

1 IF 



HPIT€ M,9I TI TLF 

CARO 

tir 


ft 

FCPMAT (/«AIG/1 

CARO 

11 A 



RETURN 

:aro 

119 



IF « FOPM, EO. 0 ) r,n TO 99 

CARO 

1 >0 

1?0 


NOs 1 

CARO 

1 ?1 



xrx r •! , 

CARO 

1 ?? 



WRIT'' (7> NO. XYX, xvK.yyx 

CARO 

1 


99 

STOP 

CARO 

1 ?4 



c Kin 

: AR 0 

l?5 
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CHAM 

0pr = ! FTN u,?»?F06C 

0 1 

1 7, eg , 


SUnq.UJTTNF CHANCf { A , B . C ♦ M, C, F« K1 , <? , K3* K4 , Ot W 1 « H2i W .1, 

CHANCE 

2 


lM*,My,MU,MS,HATl,MaTP,MftT'^*MATi.,M4T5,HAT61 

: HANCr 

3 


9lHN?inN Wl<MX,MX»,WZ 

C H A NC ' 



00MMnN/C9Nn/PF 40» «;v-5TF H, OUT PUT » Nf » NY, NU» NXC , NUC , N1 ,N ? , OICI TL • 

C HANr,‘ 

5 

r 

iCn*, TUP.NUMcOSfFRPCfTPFGP.HOQEL , NS CALF ,SAV,CPAT ,N<2 , 1 FLAG. 

: hang? 

G 


1 rnC,F09M»rPT ,RFA C'3,'tl XFC,MULTPT, scaplt,zom, kount 

CHA NC : 

T 


INT^C' R ■?rAD,SVSTr^1,nUTPUT,FCBf',CCNTUR ,SA V » C N A T , P^A n F9Pf,TR"S» 

G HANC" 

9 


tNT-:r,pp niGTTL, SCADLT, 70M 

ghans ■ 

R 


CnHHCN/ACCNO/OE:LT,FlNALT,rpPFC,FFPfQ,DSLFRFO,GAlMl,GAlN?,H 

CHANC* 

10 

ic 

PFflL <1, K?, KT, K4, IFREQ.H 

GhANG- 

1 1 


n H-Nf: ICN A (MX ,MY ) , C (MX ,MU) ,C IPXt^'Y » ,H <MY, MX 1 , G rMY,HX> ,F (MY, MUI , 

CHANG ‘ 

1? 


K1 1 mi;, MX > ,K? (MU.MXJ , K3 |MU,HX) ,K4(CU,MX1 , 0( MU, MU» 

Z HANG- 

1 3 


COMMCN/PLXHAT/NUMEP ,n£NOM,GA 1N,CR APH,PL0CK ♦SrATe,YTnV,/TOU,VXTOK, 

C HANr.*" 

14 


lITHI^Y,ITHINU,^eL0^<,NVTC\f,N7^r•u,^XYL,NY^T0K,NXT,NYT,NUT,NVl,NUl 

C H A NG f 

IE 


PfAL NijMER 

CHANGE 

16 


INT :0EP GRAPH, block, STATF. v TO V»7TCU,YZTOK 

change 

IT 


HIM' MS ION GRAPH(?0,G>, BLOCK (?C,3>,NUMER(?0,5)»CENOM(ZO,5», 

C hang- 

IF 


XGAIN t ?01 . STATF ( ?0,^) ,I THINY ( 301 , I THINU (2 C» ,YTOV (?0, ? 1 , 

chance 

IB 


X 7TnU(?],2),NXVU(0>,Y7 TOK ( ?0 , ? I 

C H A NG P 

?0 

C 


change 

21 

C 

USfP MPTTTFN SUBRO'jrTNF TO CHANGE SYSTEM OARAMET« PS Sc T <jP IN 

C HA N G E 

?? 

c 

op^VrOUS CASE 

CHANG- 

23 

c 


CHANGE 

24 


CCMHCN/SUBWRI T/ ISU'TNAM 

G hA nGE 

25 

?5 

IF( T3UPNAM.GF,?) NPITE(3»9B0) 

CHANG ■ 

26 

99r> 

FOPMAT 1 IX,*CHANGF *1 

Z HANGE 

27 


prrijPN 

CHANGE 

28 


"NO 

CHANG- 

29 
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CP t:l 


FTNi +. ’♦7506C 


01/09/7t 13. '9.^5 




^Unp<iUTlN€ Class Ca , p , C , 6 , C ,T , C * M 1 , H?* «3» 

CLASS 

? 



1 HX, MY, HU, MS« Marc, MAT3, HaT<«,HAT5 ,HAT6» 

CLASS 

3 



COM*^CN/CONn/9EaO»SY 7TEM ,OUTPUT,NX ,NV ,NU, NX C , NU C , Nt , N ^ , C If t T L , 

CLASS 

(* 



t rcNTUP , NUHC^S, PR 5. T SP, MODEL *N SCALE »S*V,C«AT,NK?, I ri AG, 

CLASS 

5 



^inn.fOPH, IPX, »F AO 3, MlX'r,MULTRT,SCAPLT,20H,KCUKT 

CLASS 

6 



CCM«CN/4CCN0/DELT,PI Nfl L T . I PR EO ,FF P£0 ,0 flPRO , G A I M , G a I N? . mmH 

CLASS 

7 



int:c'r PE an, system. cut put, fcrf, ccntur.sav,cha T,Rfan 3 , prps.tres^ 

CLASS 

n 



iNT'^rpo QIGI XL .SCAPlT , xnH 

CLASS 

9 



DIM- »iSirN a (MX ,MX 1,3(MX ,MU» ,C (HX,NXI ,H IMY,MX 1, GCMY.MX) ,F(HV,MU> , 

CLASS 

to 

1C 


IJ (KU.MUl 

CLASS 

tl 



OlMf'JSlON Ml (M X ,MX> , W2 (MX .MX ) ,H3 t FX ,HX 1 

CLASS 

1? 



PEAL IFREO^NUHERjMHM 

CLASS 

13 



CCMMON/niKOAT/NUMpP , n C K C G a T N , GR APH , 0LQC K , S T 4 T P ,Y TOV , ZT CU »V 7 TDK , 

CLASG 

19 



t ITM T^Y, ITHINU,^PLOC<,NY TDV ,N7X0U,NXYUi NY 7T 0« , N XT ,NYT .NUT.NYl, NUl 

CLASS 

15 

1^ 


TKTt^GpP GRAPH.RLOCK. Siarr . VTOVtZTCU, YZTOK 

CLASS 

16 



niMENSICN GPAPM(?0, 5» .BLOCK (?0,3> ,NUMtR(?0 ,«l ,EENCM(?0 ,P ) , 

CLASS 

17 



X G AT S(?0» .STATE (?u,4» .ITMINV f3C 1,1 TMINLMZO) ,YTOV(?0,?>, 

CLASS 

lA 



X 7TCur?],2),NXYU(A) ,Y7TOK(?0,Z1 

CLASS 

19 


1 

rORMAT U6I5) 

CLASS 

20 

?0 


COMMCN/SU0MRIT / TSUBNAM 

CLASS 

?l 



TF n suPNAM.G^: , ?j hbitl < X, 

CLASS 

22 


9^' 

FCPMAT (1 X, *CLA SS^I 

CLASS 

73 


? 

POPMAT (8F10.A1 

CLASS 

24 



NIN= 1 

CLASS 

25 

^>c: 


NXl =CX 

CLASS 

26 



NY 1 T»IY 

CLASS 

27 



MJl -NU 

CLASS 

?A 



NXTr NX 

CLASS 

29 



NVTrNY 

CLASS 

30 

TO 


NUT = NU 

CLASS 

n 



IP < IGO. £Q. 1 I GO TO ?2i4 

CLASS 

32 



NY TOY= 0 

CLASS 

33 



NZT OU=0 

CLASS 

79 



NYXXOK=n 

CLASS 

35 

7 r 

1 ?. * 

IF (MlXf-O.EQ, 1 > GO TO 210 

CLASS 

36 



N X 1 = 0 

CLASS 

77 



NY1 = 1 

CLASS 

39 



NUl r .•) 

CLASS 

39 


?10 

CONTlNUf 

CLASS 

^0 



IF ( IG C. FQ. 1 . ANO.KOUNT , GT. 1 > GC TC 36 

CLASS 

91 



00 22? r=l,30 

CLASS 

92 



1 TH I NV( n =0 

CLASS 

93 


22 ? 

CONT INU" 

CLASS 

99 



OQ ??X I=t,20 

CLASS 

95 

4‘‘ 


1 TH INIMt) =0 

CLASS 

96 


22 ? 

CON TTNUr 

CLASS 

97 



RFAO (1,1) NHLCCK.NIT 

CLASS 

m9 



IF (• 0F< 1 ) ,NE. 0» STOP 

CLASS 

99 



IF (NBLOCK.EQ. 0) GO TO 230 

CLASS 

50 



IF (MT ,EO. 0) GO Tt^ 736 

CLASS 

'1 



CALL CM/ (DELTiIGn, 

CLASS 

^2 



1 MX . MY , HU, MS, MATl ,MA T? , MA T3, MAT«,,HATS ,HAT6I 

CLASS 

33 



no TO 

CLASS 

69 


736 

DC XI I--I.NBL0CK 

CLASS 

C5 

7 


REAO U,I) (GRAPH (I , J) , J=l. F) 

CLASS 

>6 



IF (FOP( 1) ,NE, 0> STOP 

CLASS 

57 
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CON T INUe 

CLASS 

‘8 
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7 \/7 


CPT=1 


FTS 


01/ 19/'t 


1 1. 


kO 


7C 


»0 


«F 


HO 




100 


IOC 


110 


no I-ltN^LC'.K 

(i,u f LCC*^ <r , J) f J=1 » Tl 
If ( Of (1 ), N'- .0 1 STOP 
r ON TIN I" 

no i=i»NfUOGK 

PFM (!,?► ( NUH^p <i , j j , j=i ,c » 

I F ( -OK ( 1 ) .N : , n STOP 
rcN^ INU- 

f'.O ^^-4 [ = l,N^1LCCK 

pfan (l,^) ( opKCKc [ , j) ♦ j*i, SI 

IF ( ;OP { n ,Nf, C I STOP 
0*. CCN r INL- 

Ff;AO M,?l (Gfl IN< II , T^l , NOLOCKI 
IP ( OF ( 1 I .NP. C) STOP 
9F CCNTIN'Jl 

,)0 -: i-i,NnL0CK 
00 0 J-1 ,4 
STfiTr (T,JI=0.C 
S CONTINUF 
NK= 0 

no ?n i^i^NOLCCK 

STfl T - ( I , II =GPAPH (1,1 I 

IF ( hl cr< ( I , ? ) , EQ •! . AND. PLOCK < I * 3 1 , F 0. 1) GO TO ?1 
IP ( ^LOr K II 1 ? I , GT .RLOCK (I, Tl I GO TO 
TP ( CC K( I , . EO.RL OC 4 (I ,1 I I GO TO ?3 
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CNTRL9 

21 


c 

FUHC T1 CNS. 

CNTPLP 



r 


CNT RL 9 

25 


C 

G. TARULATEn TIME HISTORY PfSPONSE 

: NTRLR 

24 


c 


CNT PLR 

25 

2*^ 

r 

computations are °frform*^o using state variaelf matrix 

Z NTRLR 

26 


c 

NOTATION, 

cntrlp 

?7 


c 


CNTRLR 

28 


r 

CORRECTION MAO? RY G. NORRIS JULY 5 73 

C NTPLP 

29 


n 

7 and SAVl, 77 AfID SAV? ARE SAME MATRIX 

CNTRLP 

zn 




: NTRLR 

51 



COMHCN/COND/ READ, SYSTEM, OUTPU T , N X, NY , N U , NX C,NUC , N1 , N 2 , 0 IG I TL , 

C NTPLP 

12 



ICONTURfNUMCRS , F R PS , T P£ SP ,HOPE L , NS C A L c , S AV , CMA T ,NK? . I FLAG, 

CNTOLR 

’3 



1 igc,fcrm,ipt , react, mixfc,mmltrt ,scaplt,zoh,kount 

CNTRLR 

14 



INT-: GEF Cfftn , system, output, FDPM,CCNTUR,SAV ,CMA T ,REA0 T, FPPS,TRtSP 

CNTPlR 

’5 

55 


IMEGEP DIGITL,SCAolT,70H 

C NT PLR 

’5 



CChmcn/ACONO/ CE it. fin alt, IFREC,FFRE0, OELFRO, G AIN1,G AIN2,HN 

CNT RLP 

37 



PEAL INPTdOT, OUTPT (20» , TITLE! C) 

C NTRLR 

7 8 



CCmhCN/LAREL/INPT,OUTPT,TITLE 

CNTRLP 

19 



REAL IFP'^O.Kl ,K? ,K3 ,1^4, HN 

CNTRLP 

40 

^0 


GI HENS ION A(mx,MX),HMX,MU>,C(NK,MX),H(MV,MXI,C(MY,MX| ,F{MY,HU» , 

C NTPLR 

■,1 



Kl(MU,MX),<2 (ML, MX) ,«^3<MU,MX»,<4 (MU ,MX ) , 0(MU ,MU1 , 

CNT pl-R 




?Ml(iX,MX),H?(MX,HX»,W3(MX,MX|,PC0TR(MX) ,ROOTI (MX),POTR(MX), 

C NTPLP 

45 



3R0TI(MX),U(HX»,VtMX),Z(MS),Z7IMS) 

c ntrlr 

UL 


r 

dimension A (15 ,15 ) , 0(10,101, C(15,15», H(15,IE1, G(J5,ISI. 

C NT RLP 

-5 

4-' 

r, 

1 FdS.lO), Kld0,is>, K2(10,15l. M3(10,15), K4(10,1F), 0(1C,10) 

Cmtrl r 

46 


c 

DIMENSION Wl(15,15), WedStlEI, H3(15,15>, ROOTR(l>), ROCTKlG), 

: ntrlr 

•,7 


r 

1 ROTRdE), POTK15), U(15), V(15), Z(ZOOI, ZZ(ZOO) 

C NT RLP 




OIMPNSION H( 10 ,2R) , MH(20 ) ,P(PQ» , I C CNO ( ?9 » , JC ON I ( ?9 > , OCCN 0 (« 1 

c ntrlr 

49 



-OU I valence (REAO.ICONn dl ) , (C^LT fPCONC dJ I 

C NTRLR 

t 0 

'■C 


COMMCN/OLXOAT/NUHER, oenom, GAIK.GRAPM tRLOCK, STA7 F, yTOV, 7T0U,Y7T0K, 

CNTRLP 

51 



1 I thin Y, I TH IN U,N block, NYTOV ,N 7 TCU , NX YU , K Y ZT OK , N XT ,NYT ,NUT ,NV1,NUI 

: NTRLR 

: 2 



riMENSION Gi^fl PH (20, 3 ) , '’LOCK ( 70 ,31 ,NUMER (20, 5> , DFNOM( ’0,51, 

CNTRLR 

51 



XGAIN(?r;i,STATE(20,4t,ITHINY(?0»,ITHINU(2C1,YTPVl20,?>, 

CNTRLR 

E4 



X 7TOU(20 ,?1 ,NXYU(81 ,V7T0K(?0,?1 

C NTRLR 

:5 



INTEGER graph, BLOCK , STATE, YT0V,7TCU,Y7T0K 

CNTRLR 

56 



peal nuher 

C NTRLR 

57 



CCmmCN/SURWRIT/ ISU3NAM 

cntrlp 

58 




99 



)IITT • 

NT'^L-^ 7^/7U OPTs:l TTN 7Si3P>r 

Dl/09/75 

14,0?. 



naia pcon/ichpoco / 

CNTRLR 

F9 



IFl I «^iJ’'NAM,GF. 2) WPITEn,9)0» 

:ntrlr 

FO 

nil 


format (1 y ,*CNTRLP*1 

CNTPLR 

Cl 



KOUN 7 = 0 

: NT»L5* 




ISAV^-' 

CNTRLC 

€3 


■=(!<) 

CON T tNU'* 

CNTPLP 

F4 



ITT = 0 

CNTRLR 

, r 

-,r, 


DO 1=1, ?9 

CNTRLR 




jcoNrm = 0 

: NTRLR 

fc7 


?G? 

CONT INUE 

CNTPLR 

F8 



nc 201 1 = 1 , 

cntplr 

^9 



ecoNO ( n =0, 0 

C NT PLP 

70 

7 a 

20.1 

continue 

: NTPLR 

71 


=^01 

CCNT INUE 

CNT PLP 

7? 



R EH I NO 6 

CNT»LP 

73 



KCUN T = KOUNT*l 

:ntplp 

74 



DO '*00 1 = 1, 29 

CNTPL!? 

75 

re 


ICONOm = JCOND (I » 

CNT«?LP 

76 


?oa 

continue 

cntrlo 

77 



CALL CAPT 

CNTPLP 

7« 



IMRcA C. Nt, 11 ISAV=0 

cntrlp 

79 



DC ’01 1=1, ?9 

CNT RLP 

80 

S'! 


jcoNom = IC9N0 m 

: NTRLR 

81 


201 

CONTTNU'^ 

3NTRLP 

e? 



I FI ( CCNTUfi, EO, l> , AND, ( FC®H, GT, C > . ANO, CITT. EQ, 0 M GO TO 91 

CNTPLP 

83 



GO TO 9? 

CNTPLR 

84 


91 

NFL0T= 1 

CNTPLR 

85 



WPITr i7> nPLOT 

CNTRLP 

86 



HRIT- <7» PCON, TITLE, SrGTEH,HO0EL,niGITL,SCAPtT 

CNTRLP 

87 


9? 

IF (CONTUR, EO, 1 » 1TT=1 

CNTRLP 

88 



CALL TOT 1 A,B,C,M,G , F,K1 ,K? ,K4 ,0* 

3NTPLR 

89 



LMX,hy,MU ♦MS,mATI,NAT2,mAT3,MAT<,,MATS,HATSI 

0 NTRLR 

90 



GC TC (1) ,40 ,5 0, READ 

CNTRLR 

91 


10 

CALL LOAD * A,n,C,H,G,F,Kt,K7,K3,K4,0. 

CNTRLR 

9? 



1HX,MY,mu,HS,MAT1,MAT?,MAT3,HAT4,HAT5,MAT6I 

CNTRLR 

03 



GC TO ffl 

CNTRLR 

94 



CALL ^AT^IX IA,tl.C,H,G,F ,X1,K?,K3.K4,0.M1,H2,H7, 

CNTRLR 

95 



lFX,f'y,r-U,MS,MAU fMAT’, MATT,MAT4*HAT5,MAT6I 

CNT RLR 

96 


: NTRLR 

97 



00 ‘♦S 1 = 1 ,?9 

C NT PLR 

98 


♦ 9 

JCONOl n =ICOND ( II 

CNTRLR 

09 

r 



; NTRLR 

100 

IQG 


GC TO bO 

CNTPLR 

101 

so 

IF nSAV.EQ, 11 GO TO 51 

C NTPLR 

13? 



call ='CTSC ( A,B,C,H,G, F,Kl,K2,|t3,K4,Ot 

CNTRLR 

103 



mx, MV, MU , MC,HAT1,MAT?,MAT3, mA7 4,HAT5,HAT6I 

CNTRLR 

104 


SI 

CALL CMANGE (A , 3 ,C, H , G , F , Kl, X ?, K3t K4 tO till , H2 , H 2 , 

CNTRLR 

105 

ns 


t MX, Mt,HJ , H5,MA Tl .HAT’ »MAT1 ,MAT4 ,HAT5 tMATei 

CNT RLfi 

106 



IF (HI XFO.ED , 0, and, ISAV, ED. I» » GO TO 555 

CNTRLR 

107 



GO TO GO 

CNTRLR 

108 


ss 

IGO =0 

:ntrlr 

109 


v;s 

CONTINUE 

;ntrl» 

no 

110 


CALL CLASS (A,B,CiH,G,F,0,Hl,li2,M3f 

CNTRLR 

111 



IHX , MS ,MAT l,MAT?,MAT3, MATA ,MAT5*HAT5) 

CNTRLR 

11 ? 


sc 

CCNT INU^ 

CNTRLR 

113 



IF (PFAnT.EQ.U JCONDdlsI 

CNTRLR 

114 



IF (s A^. n. 1) ISAV=1 

CNTPLP 

115 


100 




' w opt = i f tn u . ^*7*3 06 n 

01/09/7F 

1 07 

Ub 

IF ir T UP. F 0. 1 .AND. KOUNT.OT. U GC TO €9 

CNTRLR 

IIF 


CALL ;‘>"T t a »R,o , G t< J.K4, n* 

CNTRLR 

1 17 


1>'v,f-y,M'I.H<;.MATl,MAT?,MAT3,H&TP,HaT?»MAT6) 

c ntplr 

118 


IF ( S6\^. r^.O ) GO TO 7 J 

CNTRLR 

119 


gall WOIGC (A,n,C,H*r,F,Kl,K?,K3tK‘»»D. 

CMTRLP 

170 

i.’n 

lM)(.MY,wu,MS«MaTl,HaT^.'iaT3»HATP,MAT5,HAT6> 

CNTRLR 

1?1 


JCON^U I =fl 

CNTRLR 

12? 


71 GONTp^L- 

: NTRLR 

153 


raiL G TUP 1 J, MM ,P, A , n ♦c, M ,G ,F ,K1* K? ♦ K 3 ,K4tr 1 ,H3,HT , 

CNT RLR 

1?N 


1 R IOTP , 

CNTRLR 

155 

1 

? HY,My,Mij»^S»HATt»MAT?,HAT3,*<AT«4,»'AT5«f'Ar6) 

: MTRL'’ 

I5f 


' IF (TR'Od.GT.OI nplot = i 

CNTRLR 

127 


TF ( T-^E ' P. GT , 0 I NPLOT=TRESP 

CNTRLR 

1 26 


IF IFpP>.N54l) NPL0T=NY*NU 

c ntrlr 

1 29 


IF ( F ?FG, r.F, n . ANO.TR'^SP. GT. 0) NPL C T = SY *NU ♦ 1 

CNTPLR 

13C 

1 ’0 

IF IFpDG.Ne. AND.TRFSP.GT. 01 ^ PL C T= NY *NU^ TPE S F 

CN TRLP 

131 


IF I^VGTGH.PT. T» NPL0T=1 

c ntplr 

13? 


IF ( FOPM.GT.O, ANO.CONTUR.FO.O) WRITf (7> NPtOT 

CNTPL R 

t 33 


IF fMULTRT.NF.oi GO TO 1 91 

C NTRLR 

1 X(. 


IF (SYGT r M, ^ > GO TO TP 

CNTRLR 

t 3«= 

1 

CALL ROOT (A.P.C.H.r, ,f.Kl,K?.»F3,K<«,O»Hl.H2,H3,PQCrPtPC0TI.U*V. 

C NTPLR 

1 36 


1 HY. my , M'J.MG.HA T1 ,MA T?tMAT3.MAT4,MAT^,MATFT 

C NT9LP 

1 17 


GO T T o: 

C NT RLR 

1 38 


9C ccnttnue: 

C NTRLP 

1 39 


WRIT: (T,91) 

C NT RLR 

1 FO 


81 format f//lOY.*THE t IGEN VALUES OF T H£ SYSTEM ARF*//20X, 

Cntrlp 

141 


l*t?rAL MFT*,15X,* IHACINARY PART*/» 

C NTPLR 

14? 


call ^IGFN (NY,W1,M2. W3,R00TR,fiC0Tt,U, V. 

C NT9L R 

143 


lMX.MV.M,j.HS.HATltMAT?.HAT3.HAT4,MATS,HATF.) 

C NT RLR 

1 44 


IF ( If LAG.FO.O .ANC.CONTUR.EO.l > GC TO 499 

CNT RLR 

145 

i 

IF (CONTUR.FQ.n GO TO 501 

c ntplr 

146 


GO TO J ? 

C NT RLR 

1 47 


m9s if (FOPM.EQ.01 GC TO 500 

CNTRLR 

t F6 


NC= 1 

C NTPLR 

1 49 


X YY= -1 . r 

CNTPLP 

ISO 

i-:n 

MRITF(7lN0,yYX,XYX 

CNTRLP 

lEl 


GC TO ^nn 

C NTRLR 

13? 


‘^O? CCNTINL'- 

CNTRLR 

153 


call Cdmt (7,PCOTR»ROOTI.NX, 

CNTPLR 

1 E4 


1 MX, MY, MU.MS, MAT1,NAT?»HAT3,NAT4,MAT5.MAT6I 

CNTRLR 

135 


WRITr. 

CNTRLR 

1*^6 


8? FCRNAT <//lOX,*TME OOEFEICTENTS OF THE CM AP ACT E R 1ST I T t OUATION 

ORQ CNTRLP 

1 :7 


i;PFO fpcm the LOWEST POHEP OF 5*//l 

CNT PLR 

1*8 


N XI =NX + l 

C NTPLR 

13R 


HPTT- n,83 1 (7<n, t = l,NXl) 

CNTRLR 

ILD 

0 

83 FORMAT fE20.8> 

Cntrlp 

IFl 


90 CON^TNIJ'" 

C NTPLR 

It? 


IF ( ^UH-PS. EQ. 1 1 GO TO 100 

C NT RL R 

163 


NN = N X 

C NTPLP 

16 4 


C CALL NHRATP ( NN, A , P ,C , H , G tF , 0 , ROOTR, ROOT I , ROT» , R OT I , 7 • V • 

CNTRLP 

IFF 

Ub 

CALL NMRATR ( N N, A , B , C , H , C ♦ F ,0 , PC f T R, RCOT I , ROTO , R CT T ,U* V , 

CNTPLP 

166 


r, 1 W1 , W?, W3 tSAVl ,SAV?. 

CNTRLR 

1*7 


1H1,W?,W3.7,77, 

CNT RLR 

168 


?MX,HV,HU,MS,MATl,HAT2,HAT3,MAT4,HAT5,hAT6» 

C NTRLR 

169 


100 CCNTINLE 

CNTRLR 

170 

I7b 

IFITRESP. EO. 01 GO TO 507 

CNTRLP 

171 


101 continue 

CNTPLR 

17? 


101 



i.uncon n Kf 


17^ 


CNTi-L» 7.^/T4 OPT*l ^TN ‘♦.?47«:5feJ 


CALL TiUST <fif n»C,H,F,M| ,W?,M3.liOOTR,ROCTr,U,K t,0,7,V, 

CALL TMtST U, 0,C,H,r,Ht,W?,H3,ROOTR,ROOn .U.Kt.CfPOTl 

IKX, «v, HJ,f-:^»MATltHAT?,MAT^,HaTA.MAT5»HATb» 

^=07 IF ('-,CAPLT, 2» jCONOf’fiUt 
IF » IFLA r,.FO. 01 GO TO '00 
GO ^0 ^‘0 1 
FNn 


01/ 09/7f 

14* (? 

CNTRLR 

1 7? 

, :ntrlp 

174 

CHTRLR 

17? 

CNTPLR 

t 76 

CNIRLP 

t 77 

CHT OL-? 

17A 

CNTWLP 

1 79 


102 



r.lIMfrOUT INF 

CPHT 

73/74 CPTsl 

FTN 4. ?♦ 06C 

oi/cq/7N 

14.0?, 



' Lr>P()UTINP CPHT <C,POOTR,eOOTI,N, 


: pt*T 

? 

♦ 


Ihx,mv. ►y,K<;,MftTl ,NAT?,HflTt,MAT4,M*T'.HAT8^ 


cpnt 

3 



Ca*^‘’L"X 


:pht 

4 



niM*NsrnN a , n<?5» ,c(hk» .oofTRinxi , roott > ,oc^ ^ i ,f <?5 > 

: PM r 

5 

r 


-CMMCN/‘.;unw9IT/ ISU‘1NAH 


GPMT 

G 



1 r ( [ConNAH, G- , ?) HPirE t .l,qqo» 


: PMT 

7 


■MH 

FOk’iAT (1 x,*rPMT*» 


: PMT 

5 



IF ( N, r.T , t ) r.O TO 13 


S PMl 

9 



^ ( u =-pnnTR f t > 


; PMT 

10 

ir 


=1, J 


CPMT 

1 1 



RF TURN 


: PH T 

I? 


lU 

r OMT INU‘ 


CPMT 

u 



Am=CHPLX(-ROOTR(t» ,R00TII1 1 » 


CPMT 

14 



A (?) rC^^DLX (1 » 0 , 0. 0> 


: PMT 

1? 

1*^ 


NX- ? 


C PMT 

1f 



rc 4 ir=?,N 


: PMT 

17 



NV- NX» 1 


C PMT 

1 9 



no \ i=t,NY 


CPMT 

19 



om ^cmplx(o .0,0.01 


C PMT 

^0 

?o 

1 

CONT INUr 


CPMT 

?1 



n (1 ) ~CMPLX(-POOTP(ri ),ffOOTI CUM 


: PMT 

?? 



1' ( M TCPOLXd .0,0.0) 


CPMT 

?3 



no 3 1 = 1 ,? 


Z PHI 

7 4 



no 3 JtI.NX 


C PM T 

?9 



K= 1 + J-1 


CPMT 

?6 



C (K ) =A (J )*R( I ) ♦D(«) 


C PH T 

?7 


T 

CCN T INUF 


C PMT 

?« 



N X = N X f 1 


CPMT 

?9 



no R JJsl ,NX 


C PMT 

30 



A< jj)=n( jj) 


CPMT 

^1 


r 

CON r INU*' 


: PMT 

7 2 


- 

CCNT INUE 


CPMT 

3 T 



00 7 1=1, NX 


Z PMT 

3 4 



^ (I ) =0 (T ) 


: OMT 

39 


7 

CCNT INUF 


CPMT 

T6 



OC F 1=1, NX 


C PMT 

?7 



C ( M =RF AL (□( I ) ) 


CPMT 

39 


f- 

CQN T IMJF 


CPMT 

*9 



T U P N 


C PMT 

-D 

«0 


[ K 0 


CPMT 

41 




E*t . 


10 ^ 



-AT 


TTN 4.?475C6L 


01/09/7^ 14,."?. 


SURROUTTNE =■ 8 T I T ,8 , W I ♦ W 7 , N 3 ,C ♦ N t 
IlX.HY. CtUHS»HflTl,MAT?,MAT3,hflT4*H»T5»H8T6l 

THIS SUHROUTINE COHPUT'IS THE TfiAHSITIOK HATRIJr ANO I T9 S INTEGRAL# 
rppiES IS TRUNCATE'^ MHEN T^E LARGEST ELENE^T OE THE LAfST TtRH 
TMf r,c-RT-;S I'i LESS than l.P-'^T Tl^es THE SMALLEST aSHENT OF THE S 
SE'^I^S, MPITT^N 9Y p, MAINE ^/17/71 

HIM" NS TON At MX ,MXJ , ill ( MX ,HT » ,H? tMX,HX» ,M3 (MX #MX» ,C IHX ,MX> 

COMMON /CONn/REAO,SY3TEM,(JUTPUT.NXtNY,NU,NXCtNUC*Nli N2, OIGITL, 

1 CCNTUR, NUHERS# FRPS# TRESP# MODEL , NSCAL S» SAVt CM AT ,NK?#I FLAG# 

1 IGO, fORM , IPT .PEAn3tMTXEn,MULTPT,SCAPLT ,^OH,KCU^T 
INT-ScR PEAO, SYSTEM# OUTPUT I FOR M #CCMTUR tS AV # CM A T # RE AO 3, FRPS,TRF3P 

integer oigitl 

CDMMCN/SURNRIT/ ISU9NAM 

IF ( ISUONAM, GE, ? > MRTTE(T.990» 

090 FORM AT (t X ,*EAT * > 

MA T1 =MX 
K6T ? = M X 
MAT »=MX 
MAT4=MX 
MAT5=MX 
MAT6=MX 
NT= ?4 

CALL 7CTltMl,N,N, 

1 MX,MY,MU,MS»MA U,MAT?, MATT,MATL#MAT5*MATb> 

CALL MAXE (N?,Ml,N,N, 

IMX#my,MU#MS*MATI.MAT?#MAT3#MATA*MAT5#MAT6> 

DC 1 I=l #N 
Ml ( I . I )= 1 .0 

1 CCNTINLT 

CALL MAK’^ tM3,Hl#N,N# 

MY, MU, MS# MATl,MAT?,MAT3,MATt.,MAT5#MAT%l 

G = I , 0 

H TMA Y= 1 ,F*SO 
T = T /A. 

00 7 1=1, NT 

no= I 

^=r.*T/pn 
W IMT N= i , E^E 0 
M2 min= l,E*5n 
no 30 J=1#NX 
OC 30 K=l,NX 

IF {Ml tJ,K».NF,0.0,ANO# AHSIRU J#KII ,LT. NIMINI RIMIN* A BS (M H J # X > » 
TF tW?U,X>#ME.O.O. ANO. ARSIH? U,KH.LT. «MlN) «?MIH = A 6S 1 H? I J, 10 I 
30 CONTINUE 

H^HAX1= W,3MAX»T/BB 

CALL add a#0,N?#G#N3*M?#N,N, 

1 MX, my,M(J#HS# MATI ,MATZ,MAT3,MATA,HAT5#HAT6I 
call mult CA#W3,C,N,N,K, 

1MX,MY,»'U,MS,mAT1 #MAT?,MAT3# MATi.,MAT5#MAT6I 
CALL MAKE 1N3*C»N,N# 

1 MX, MY# KU, MS# MATI ,MA T 7 # H A T 3 ♦ M A T A # MATS , MA TGI 
W.3MAX =0.0 
nC 4C J=1#NX 
no ..0 K=l,NX 

IF (AnS<H3< Jt X) > .GT, M3MAXI H3MAX= ( A 0S (M3 < J # K I II 


: AT 

■7 

EV 

3 

E AT 

4 

EAT 

E 

EAT 

6 

E AT 

7 

EAT 

0 

AT 

9 

EAT 

1 0 

EAT 

11 

i AT 

1? 

EAT 

13 

E AT 

1 4 

EAT 

IS 

EAT 

16 

EAT 

17 

EAT 

1« 

■ AT 

19 

EAT 

ro 

EAT 

71 

I AT 

?? 

EAT 

?3 

EAT 

?4 

EAT 

•^5 

EAT 

?6 

EAT 

’7 

EAT 

"A 

: AT 

?9 

EAT 

^0 

EAT 

51 

i AT 

3? 

EAT 

*3 

E AT 

•»4 

EAT 

39 

EAT 

36 

£ AT 

^7 

EAT 

36 

£ AT 

39 

EAT 

uQ 

EAT 

4l 

FAT 

4? 

EAT 

43 

EAT 

m4 

EAT 

45 

EAT 

46 

EAT 

47 

£ AT 

*♦6 

EAT 

49 

EAT 

EO 

EAT 


EAT 

S? 

E AT 

o3 

EAT 

54 

EAT 

^5 

EAT 

EF 

FAT 

^7 

EAT 

FA 


44 . 


104 




niTlM Ar M/7^ OPTsl TTN (&( 

a 1/ 09/ 7. 

1 4 . (. ? 


^o CON r [Nu^ 

EAT 

f 9 


WlMAlTr --<-?MAX*G 

-AT 

bO 

fC 

CALL Ano (],0. wi, 1, W3« Ml* N* N* 

-: AT 

f)l 


lHX,MV,nu,HC*MaTl,MAT?,HAn,«AHi.MAT5.MATf>l 

FAT 

(2 


ir <W^MA *i .L T« l,0l--03 . AND. M1HAX. LT. Ml HIM* 1 , ' - 03 ► f.O TO 

70 FAT 

c 3 


7 rCNT tNd 

; AT 

f.4 


WPITr I^,1000» M1MI4, WIMAX, M?MU, W^f-AXl 

FAT 


* «- 

lOO'l Ffi-’MnT(* IN L A r*» 5>f* •MtMTN = • . r 1 c . 6 , f,x , • w TM AX s*,fl‘>,b,/* 

• . £ A T 

bb 


1 1 ?i( , 1- ♦•MT'lAXl 5*,£fJ,e> 

£ AT 

»,7 


7T CPNTINI) 

eat 

f « 
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^0 



A(<,J) ^ - 4(K,Nl»*n(J» 

HESS’N 

ul 



CUM - ?MM *■ A (K.j 1*1 (K ) 

■♦ESSEN 

4? 



CCNT INIF 

hessfn 

*.3 



r,n TO uo 

HESSEN 

m4 


^3 

nc u^ K l.Nl 

HESS'N 

u5 



CUM - lUM f a (K, J1*R (K) 

H ESSFN 

4ft 



CCMTINU- 

H FSSFN 

47 


*♦5 

4 (N 1 , J » = SUM 

T ESSEN 

4ft 


UP 

CON TIN'Jf 

HESSEN 

49 


30 

Rf TpJ^N 

HESSEN 

EC 



F rm 

NFS' fn 
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inputs 


7^/7U 


CPT = l 


FTN *«. 751S' 


01^09/^b lu. 



^IJTP-JMTT NT TNP'JT V<n*LT.T ,U» 

I NPU T V 

? 


1 .MV , , M« T1 ,Hft T? ,Hfl T3,HA T4 ,MAT*> ,M4To» 

I NPUf V 

T 


COMMCN/rONn/ »rfln, SYSTEM. OUTPUT, UK, NY, K'UtNJfC *NUC ,N 1 ,K '♦ nt r,l TL . 

r NPUT V 

1. 


! r.nti .PPt'S iTPESP ,MOD~t ,NSCAL- ,SAV, CM*T , NK?, If LftT,, 

I NPUTV 

‘i 

r 

IGO, f 0*. «, TOT , M IK; C.MUl TPT.SCflPLT ,20H,K0UKT 

I NPUT V 

h 


I NT ‘r '.CP wf A T , S VS Tr- M , OU T0||T ,frCI»,rCNTUP ,SAV ,ClA 1 ,Pf A H T, P - p’ , TP - 3® 

I NP'IT V 

? 


fNTrn.w n ir.i TL .SCAPL T , /OH 

I NPUTV 



ni^fNSiCN in*<yi 

I NPUTV 

9 



I NPUTV 

IQ 

1 0 

'• 'JS‘ P k^RTTTPN SUnonilTlNf CON f TP I.C T I NG I^PUT VICTOR PC-? TOAnT'NT 

I NPUTV 

U 


•?f SPONSf . 

1 NPIJTV 

1? 


<' 

I NPUTV 

! T 


CCNHON/SUPWPIT/ ISUINAM 

I NPUTV 

U* 


If ( r :UPNAM. Gf , ? > WPITEM,«»90> 

I NPUTV 


1 ‘ 

FORMAT M y r*XNFUTV*» 

I NPUTV 

IF 


IF {T,GT.n.l» RtTUPN 

I NPUTV 

1 7 


p*^An < 1 , 1 ) (iM 1 ) , 1= 1 , N'i» 

I NPUTV 

1« 


If ( or ( U ,NE. O STOP 

I NPUTV 

IP 


1 format (‘^F10,4» 

I NPtJT V 

?Q 

?D 

PFTU"N 

I NPUTV 

?1 


iZNO 

I NPUTV 

?? 



SUrOD JUTI ►F 

I rw74 OMTsi ftn 

C l/09/7r> 

lu. P T, 


SljnooUTTNE INVR (A,TfJJJ«IT, 

r Nwp 

? 


lMV,HV,f'U*MS,MATl,HaT5,HaTS,'4AT<*.HAT5«HftT6» 

I NVP 

Y 


n ppnr.oAM fiNTMOP'; R.e, FUNn=‘i?ir ant r.g. eowapos. 

1 NVP 

U 


r:oMPuTiNF rrcHNOLor»y ccnT'r, CflpRiOE CORP. . nuclfap nrv.* 

I NVR 

5 

f 

■' OA< Oir{i‘*» TENN. 

I NV9 

6 



I NVP 

7 


r. err o^n pprr.RAM no. 906T,i 

[ nwr 



ION A IMX *MX », <HX,rtXl 

1 NVR 

R 


COMMON /rUNP/PEan, TEM.OUTPUT, NX,NY,NU,NXC»NUr *N1 ,N2 , fIGITL. 

I nvr 

10 

10 

1 CCNTLP, NUM^ RC.FRPSt rPESP.MOOFL ,NSCAL E »FA V.CHAT ,N<?, IfL AG. 

I NVR 

11 


1 IGn,FOi.'M ,IPT ♦RE40^,MIX''.Q,HULTPT,SCAPLT,7 0H, KOUN^ 

I NVR 

1? 


lNTFr.FR PFAO. SYSTEM, OUTPUT, FOR*', CCNTUP,S AW *CMA7 ,PFAnT , FPP^ ,U?r 

SP 1 NV» 

1 5 


INTFGrP Oir.ITL, SC4PLT, ^OM 

1 NVR 

14 


COHMON/SHPHP IT/ ISUONAM 

I NVR 

15 

1 

TFt I 0U'*NAM,r,r , ?> WOITtn.P0n» 

I NVR 

16 


44H fOPHAT (1 X ,* INVR* ! 

I NVR 

1 7 


MAT1 -M X 

I MVR 

18 


M AT? X 

I NVR 

19 


IF ( IPT. LT. 1 ) GO TO 70 

r NVR 

20 


WRIT-. ,n> 

I NV R 

21 


’1 fofmat (/• matrix fntcping invp and its imwer?p*/» 

I NVR 

?? 


CALL SPITl (A,JJJ,JJJ, 

1 NVR 



1mx,my,mu,MS.MATI,MAT?,MAT3,MAT«*,MAT5,MAT6> 

I NVR 

24 


70 CONTINUF 

1 NVR 

?5 

pr 

If (JJJ.NF.n GO TO 50 

I NVR 

76 


M n , l> -! . /At 1 , u 

I NVR 

27 


PF TURN 

I NVR 

?8 


•n rCNTINUF 

I NVR 

■*9 


00 ?1 1=1, JJJ 

INVR 

70 


nc ?o j= 1 , JJ I 

I NVR 

51 


n n . j Mil , 0 

I NVR 

1? 


20 CONTINU- 

I NVR 

33 


'u 1 , n =1 . Q 

I NVR 

34 


?l CONTINUE 

I NVR 

35 

rc 

«'K= J JJ 

I NVR 

3b 


N V= J JJ 

I NVR 

37 


n = l . 

I NVR 

38 


I F < JJJ, LT. 0 » 0 = 0. 

t NVR 

39 


KKM =KK - 1 

t NVR 

40 

^(1 

no 0 1=1 , KKM 

I NVR 

-1 


r =G. 3 

1 NVR 

>,? 


‘]C 1 Jn] ,KK 

INVR 

43 


Anc t a 1 /, T n 

I NVR 

44 


If (P.LT.Sl r.O TO 1 

I NVR 

45 



I NVR 

^6 


L =J 

I NVR 

47 


1 CCNTINLF 

t NVR 

48 


IF <L. n GO TO 

I NVR 

hR 


00 ’ J = I , 

I NVR 

50 

.0 

S = A t I, .1 

I NVR 

51 


A n ,JI ^ A (L,j) 

INVR 

5? 


A U , J ) = C 

t NVR 

3 


? rrNTiNLF 

I NVR 

4 


ifinw.l^.ogo to r 

1 NVR 

■ 5 

■ifj 

nr X jri , NV 

I NVR 

*■6 


r rP < I, Jl 

I NVR 

7 


^ (T , J> =T (L, J> 

I HVR 

F 8 
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-Uf'P^UTIKf I NV- 




OPT^t 


FTN H.2*75n6C 


I31/09/7F, lU.nj.Qf 


9CL « J> ='* 

COM'^lNUf 
- Os-0 

IF( A ( I , M .'^0. 0, )r,0 TO 9 
I Fo= : * 1 
00 « J = Tt>O.KK 
IF < A * J. r » . to. 0, » G ) TO ^ 
f.‘ SrA t J, n /A (I . T ) 

A (J, I » *0. 0 
OC 6 KrlPO.XK 
A c J ♦>( 1 =A (J.K ) - A < r,< »» s 
F CONTTNUF 

70 IF{N\r.LF,0»GCTO5 

no 7 K“l,NV 

P ( J, <) = ^ ( JtK) -R ( I,K) *S 
7 CCNTIMJF 
A nCNTf^LP 
7b ^ COMT INUF. 

00 ta 1 = 1 , KK 

0 = 0* A< I, I > 

10 CONTINU'^ 

IF(Ni/. LE . 01 GO TO IT 
6L KM0=KK-1 

OC 12 tf=t,NV 

nfK*C,«>=tnKK,*0/A(<<,KKl 

no t=i,K^*o 

n=k<-t 

no ll J = N,KMO 

R <N ,<» =0 (N, < 1 -A <N, J* 11 *R ( l, F» 

tl CCNTINU=^ 

R <N ,K1 =R IN,« I /A (N,N 1 
12 CONTINUE' 
qn 13 OHAT-Q^D 

IF < IP7, LT. I 1 GO TO 72 
OALU SDITI 

lHX,f*Y,HU,Hn,MATl,HAT2,»1AT3,*1AT4,l»ATS ♦«AT€i I 

7? CON tin or 

IF (IT. n. 01 RETL’ffN 

on t: 

no TrJ J=1,JJJ 

IF (ATGIRd.jn.LT.l.E-RUm.JIsQ. 

3? rCNTTNU" 

1 ,-r RFTU?N 

ENH 


1 NVP 

59 

[ NVP 

to 

INVR 

ei 

1 NVP 

t? 

IMV° 

F3 

INVR 

f 4 

I NVR 

*5 

I NVR 

Ft 

I NVR 

67 

I NVR 

fc-e 

[ NVR 

F9 

I NVR 

70 

INVR 

71 

t NVR 

72 

I NVR 

73 

I NVP 

74 

I NVR 

75 

I NVR 

76 

I NVR 

77 

INVR 

78 

I NVP 

79 

INVR 

00 

I NVR 

81 

I NVR 

02 

I NVR 

F3 

I NVR 

8 4 

X NVR 

85 

INVR 

86 

I NVP 

87 

I NVP 

HB 

INVR 

89 

INVR 

90 

INVR 

91 

INVR 

92 

I NVR 

93 

I NVR 

au 

INVR 

95 

INVR 

96 

I NVR 

97 

I NVR 

98 

INVR 

99 

I NVP 

100 

INVR 

101 

I NVR 

102 
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'I. Ht 

lUnKf L )45 ’V74 CP’-1 FTN U,?*7CCfel 

01/ 09/7f 

u, r ? 


:li-<CUTIN[: tn4C (ft,R,C,H,r.,F,Kl,K?,K3t<<»»0, 

L OAC 

? 


l*'»f,‘4Y,HU,MS,HATl,MAr?,HaT3,M/»TW.M(lT5,HaT6l 

L OAO 

3 


1 

L OAO 

U 


fM!-; ^iirlwnnTIN'- LQ401 ALL MATRICES ACCORPING TO THE 

L OAO 

5 


r ^ Avfl . 'YSTEM ANC OUTPLT. LSING THE SUPROUTINr LOAOl 

L OAO 

E 



L OAD 

7 


COM“^OM/f: OMf' / - F AO. SVSTE H. OUTPUT, N , N Y , NU , NXC , N UC . N 1 , N ^ , Cl M TL , 

. OAO 

B 


iCOMnjP.M'JMrw , NSC ale ,SAV ,CMAT ,N<^,TFLAG, 

L OA n 

9 


1 IGO , <“n9H « If’T , PEAOT.MTXE C,MUL TRT,SCAPLT ,70H,KQUNT 

LOAO 

10 

10 

IfjT - r,-;p PfA^. system, OUTPUT, FT PM, CCNTuR ,SAV ,CMA T.PFfiOT, FPPE,T9>SP 

w OAO 

n 


niMTL, SCAplT, T0» 

L OAO 

12 


real <1 ,<?,<1,K4 

L OAO 

IT 


T nrj A ( MX ,MYJ , 0 (MX , MU» , C (MX , MX 1 ,H (MV , MX » , G (MY ,MX | ,F (MY ,HU ( , 

LOAO 

IV 


K1 (M(|,my) ,k'?(MU,mx» , <3t mu, MX>,KL( mu, MX), 0( mu, MUI 

L OAO 

15 


CCMMCN/S L'lWP FT/ ISU1NAM 

L OAO 

16 


I F( T ,Uf»M AH, r, I Tt ( ) 

.OAO 

17 


•mo F CPM AT M X ,* loa C* 1 

L OAO 

IB 


MAT 1 -MX 

L OAO 

19 


M A T ? X 

L OAO 

20 

?0 

UMAT =0 

L OAO 

21 


CALI LCAOi (A , N Y,ny, UMAT, 

L OAO 

7? 


lMX,My,^!j,»'C,MATl,MAT;»,MAT3.MATi«,HAT5,MftT6) 

L OAO 

?T 


M at P :MU 

. OAO 

2V 


^ALL LCACl (f" , MX,MU,NMAT , 

L OAO 

25 


lMY,MY,MU,MS,MAn,MAT7,HATl.MATi4,MAT5,HATb) 

LOAD 

26 


IF rCMAT , ro, 0 ) GO TO ?o 

L OAO 

27 


HATI:iMX 

L OAO 

?« 


M AT7 -MX 

-OAO 

29 


CALL LCA 0! (C , N X , NX , NM A T , 

L OAO 

TH 

1C 

IM X. M Y, MU, MS, maTI, MAT?, MATT ,MA Tu ,MAT5 ,MAT6) 

.OAO 

31 


GO TC 

L OA 0 

32 


mAT?=MX 

L OAO 

TT 


call 7CT i (C, NX, NX, 

L OAO 

JV 


1MX,MY,MU,MS,MAT1 ,MAT?» MATT, MATA ,M ATS, MAT6I 

L OAO 

35 


OC r=l ,NY 

LOAO 

36 


21 C(I , n =1 . 0 

.OAO 

3 7 


U', CONTINUE 

L OAO 

38 


IF ( MIXF O.EO .It GO TO 5ft 

LOAD 

39 


GO TO ( 50,50, FO) , system 

L OAO 

4.0 

**0 

bO mATI^MU 

LOAO 

Hi 


MAT MX 

LOAD 

4)2 


CALL LCAOl (K1 ,NU,NX,NMAT, 

LOAO 

h3 


1MX,HV,MU,MS,MATI,MAT?,MAT3,MAT<,,MAT5,MAT6) 

LOAO 

(•V 


IF (NX?. FO, 0 t GO TO 62 

L OAC 

VF 

Ub 

call LCAOl ( X? ,NL,NX,NT4T, 

L OAO 

46 


1HX , MY,Mi| ,MS,maT1 ,MAT?,HATT,MAT,,,MAT5 ,MAT5) 

.OAO 

47 


6? CONTINL" 

.OAO 

48 


IF ( N7.-‘0,0) GC TO bL 

LOAD 

49 


call loam ( XT,MU,NX,NMAT, 

LOAO 

5 0 

■; 0 

1 MX,MY, MU,MS,MAT1 ,MAT?,MAT3,mAT<»,MAT5,MAT6) 

load 

jI 


IF (NX7, EO. n 1 GO TO 6i4 

.QAO 

5? 


call LCAOl ( X4,NU,NX, NMAT, 

LOAD 

53 


1MX,my,hU.MS,MAT1,MAT?,MAT3,MAU,MAT5,MAT6) 

LOAO 

54, 


6u CONTTNLF 

LOAO 

c c 

5? 

GO TO 200 

.OAO 

56 


5 r M A T 1 - H Y 

L OAO 

5 7 


MAT?=MX 

L OAO 

^ 8 
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.(JfiCOlIT I K- LOAf 




CPT-1 


FTN H. ?6')S( 


01/39/7P> l^.G^.39 



call LOAOl «H,NV ,N< , NHAT , 

.OAO 

^9 


lHX,‘*r,HU,MS.MATl,*lAT7,HAT3,HATt.,HAT5,HAT6l 

load 

to 

<>c 

nc rcM (11, *;p, 5?t = H» , OUTPUT 

LOAD 

u 


CALL LOAOl tG*Nr ,N« ,NMAT . 

LOAD 

F? 


11K,Hr,HU,MS.HATl,HAT3,HAT3,MAT4,MAT5,HAT6l 

LOAD 

FT 


r.n TO 10 0 

LOAD 



*57 MAT7-=HU 

L 9A0 

♦5 


OALI LCADl (F,hYtNU,NHAT, 

LOAO 

ft 


IM Y, Y, MS, A T ! ,MAr 7,MAT3,NAT4,M«T5,MAT6» 

L OA 0 

*^7 


nc TO 100 

LOAO 

6 ft 


=iti CALL LCAOl (0, NY, NX, NMAT, 

LOAO 

F9 


lMY,Hy,MU»MS,MATl,MAT?,MAT J, H A T A ,M*T 9 ,M AT G) 

. OA 0 

70 

/L 

HAT? sMU 

LOAD 

’1 


call LOAOl 1 F, NY, NU, NHAT, 

.0 AO 

y? 


IHX, HY, MU, MS, HAT 1, HAT?, HAT T, hat A, hat 5, HAT 6) 

L OAO 

73 


too IF (Mixeo .El, U GO TO ?00 

LOAD 



GO TO t?00, 11 0,2001 , SYST<^M 

LOAD 

3$ 

7- 

110 MATl=HU 

LOAC 

76 


HAT2=MX 

LOAD 

17 


CALL LCADl (Kl,NU,NX,NMAT, 

LOAO 

76 


tMX,MY,MU,MS,HATl,MAT?.MAT3,MAT4,MAT5,HAT6l 

LOAO 

79 


IF (NK?. EO.Ol GO TO 66 

LOA 0 

“ft 

hL 

CALL LCADl ( K? , NU ,N X , NHA T , 

L OAO 

ftl 


1HX,HY,MU ,(^,HATl ,HAT?,haT3,MAT4,NAT5,MAT6I 

.OAO 

ft? 


66 CDNTINUF 

LOAO 

d3 


HAT »*HU 

LOAD 

8L 


CALL LOAOl (0,NU,NU,NMAT, 

-OAO 

H5 

iS 

IHX, HY, HU,HS*MAT1 ,HAT?,HAT3,HATI*,MAT5,«AT6» 

LOAO 

66 


?00 RETtjOK 

L OAO 

67 


tNO 

.OAO 

86 
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(I (‘."HI r I K'- 

\ 

7 ^/7L CP^ = l fTN >♦. ?* 7*=0%C 

1 1/39X7F 

lU.O 1 



"IJ IS 'HJ TT S'" LOfini (4#N,i,NM4T. 

L OAOl 

■> 


1 

■ix , Mft Tl ,m 4 T?,HA r^,HM4#MAT»;tMT6l 

1 OADl 

1 



HIM N'; ION 4(MftTl,Har?l 

. OAOl 

U 



n fHMCN /^:URWP I T / TSO^NAH 

L OAOl 

CL 



IF( 1 G - , ?) H'^ITf (S.P'JOl 

L OAOl 

[X 


‘iMfJ 

rr:fr'^*4T( 1 x,*Ln4r iM 

L OADl 

7 



NKA T =N”4 T ♦! 

L OADt 

A 



r 0 ? H a T ( ? n n 1 

L OAOl 

q 



PC4 n ( 1 , 1 r 1 Ni , n; 

L OAOl 

10 

1 1> 


r p (- nr n K Nf , n 1 ip 

, OAD 1 

1 1 



If- CN1 .n.N.ANn.NP.eo.fn r,n to ?q 

. OAOl 

IP 



Hf«ITf M,10D» NHAT,N.M,NI,N? 

LOADl 

1 ^ 


If)'' 

fUWHAI (///,10X,* WAPNIN'". 0T>'«^N5;i0N OF HUMflfR*,!?.* MATRIX 

SHOJLO _OA01 

1 <4 


! 

; R>*,15,* TV*, IP,* RUT 13*, I5,* PY*,IP,//1 

L OAOl 

15 

1 ■ 


-)c, Is 1 ,N 

L OAOl 

16 



PFAO ( U ?Q0t (AM, Jl , J“t,M> 

-OAOl 

1 7 



IF I *■ GF U » , f]) STOP 

L OAOl 

1 A 



rr.NT iNUF 

L OAOl 

IP 


?on 

FOPMAT lAFlO.i,) 

L OAOl 

?0 

7f\ 


^TTUPN 

L OAD 1 

?1 



'■NO 

L OAOl 

? ? 


117 



’HAK" 

7T/74 OPT=l 

FTN 4. ?475D6f 

01/09/76 

lA.l? 


su>7.?outtne naxF 


9A«r 

Z 


tMX,MY,ni,»-S,HATt,HAT?,>*aT^,>-aT‘«,M8T5»»'ftT61 


HAKF 

3 


QI'"~NSTON Ar'lATl«Hftr7|,R<MaTT,rATli» 


lAKf 

4 


nCMMCN/':U»^WR IT/ ISUTNAH 


HAKE 

5 


I F (f ^IIRM AH.r," , ?1 W?ITE( U‘no» 


HAKE 

6 

HQ 

FC^^flT (1 Kf- 


MAKE 

7 


no ir 1 = 1 , N 


1 AKE 

A 


no 10 > 1 ,*^ 


HAKE 

9 


an , Ji =n ( I, j) 


H AKP 

10 

in ir 

CCN^ IK'J- 


HAKE 

11 


RC rUPN 


MAKE 

1? 


TNO 


M AKE 

13 
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'Uf'OOUTTNr MAT^^’TX ^3 /7i4 C°T = 1 


FTN ^.?^750^o OWOq/7' 1-..1?,' 


r 


SUqmrujTtMt HATRII^ | A , 9 , C , M , G t . K I , K 7 . K 3 * <i+ ♦ 0 , W I , » W ’ » 

lH)(,i-v,HUtMS»'^ATl,MAT?»1ftT3fHaT4|MAT‘. ,MATe>t 
rOHMON/CONn/t^f A0.SY3TEH,nurPUT,NK ,NV,NU,NKC»NUC »Nl ♦N?,CT^>ITL, 

ICO MTUR »^IUM?»S ,FF.'PG, T9 = l°,»40nFL*NSCftLE »S«V* CM AT , NK7 , IFlA'i* 

1 TGC« FCCM, roTtPEftlJ. M IXF C» MUL TPT^SCAPLT, 7HM tKIU NT 

PFfln,^VST£H,nU’’PUT,FCPH*CCNTt)fi,Sft\/»r:MAT,FPPr,TOF"PtR‘An3 

iNT^r.FP nir,iTL» zoh 

CCtmCN/ACCNO/ r':LTt^INALT*TFPfO»FFPcT^r)rLFpr)^(;fly^jj,r4j^j;>^M 

REAL < 1 . X ?,K SK4, IFRc-q , m 

niP^N^ION ACTy.H)0»l(M«,HU» ,C(HX,PX» ,H(MY,MX KG(PV ,PX» ,F (HV,MU», 

1 K I ( HU, HX \ ,K? (ML ,MX » ,K3 (HU,MX ) (HU, MX ) , D (MU , « t ) , 

?W1(MX,HK) ,H^(HX,MX^,WJ^MX,MX^ 

GIHtNSTCN ORAFH(?0,5),PLOCK(?n,3) ,NUHtP(?0,?l ,OFNOH<?0,F>, 
XGAlN(20>,STArF(70,(*),ITHINV<3 0>,ITHlNL(20KYTOV(?C,?), 

X 7 TOU (20 ,? ) ,H XYU (-T ) » YZ TOK ( ?0, 2 I 
REAL NUHFP 

INTTGEb grad '^,PLOCK,ST ATEfYirv, ZTCU, YZTOK 

CCHMQN /PLKOAT/ NUHcR, O fWOM, gain ,GFADM .RLDCK,ST AT t , VT OV , 

X 7TCUfY7TOK,ITHINY,ITHlNU,NnLCrK,NYTCW,NZTOUtNXYU,NY7TO«<, 

X NXT,NY T ,NUT ,NY1 ,UU 1 

USff? MPTTTEN SUBPOUTINE TO COK'TPLCT SYSTEH HATPIC-'E UNDER CONT>>3 l 
OF CONDI TION fODFS 

CCHMON/SUBMDTTZ ISU9NAM 
IF(IEUPNAH,Gr,2J NRITE(3,990» 

990 FORMATdX, ♦MATRIX SUB 2*> 

RETURN 

END 


MATRI X 
MATRIX 
9 ATP I X 
MA T ■>! X 
MATRIX 
1 AT RI X 
9A IR I X 
MATRIX 
MATRIX 
M ATRI X 
1 ATRI y 
MATRIX 
MATRIX 
MATRIX 
MATRIX 
MATRIX 
MA TRt X 
MATRIX 
H AT PT X 

MA TR I X 
MATRIX 
9 ATPI X 
MATRIX 
MATRIX 
MATRIX 
MATRIX 
MATRIX 
MATRIX 
MATRIX 


2 

3 

A 

c 

6 

7 

A 

9 

10 

1 1 
12 
13 
19 
IF 
16 
3 7 
18 

19 

20 

’? 

23 

26 

26 

77 

<8 

?9 

30 
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CPTm FTN ‘..2* 7506r 

01/09/7F 

14, t?, 


SLP>^nUTINF HUL T < A , » C . N ,M . K , 

HULT 

? 


1M)i,my, kwhs, H6Tl,Mfir? ♦MflT3»Mft T4. MATS, MTft) 

•lULT 

1 


nil^S«:rON 4lHATl,M,ftr?|,R(MAr3,HATIfl*CI»'AT5*HAT6) 

MULT 

4 


CC^^nrN/lUBWP IT/ T'^UINAM 

HULT 

? 

r 

IF( I'^UPNflM.G? . ?> W9ITE (3,q'9 0> 

iULT 

6 


FQYmA T n » ,*MUL T* ) 

HUL T 

7 


00 n r* 1 f N 

MULT 

B 


on lu isi ,K 

MUL T 

9 


X X = n . n 

MULT 

10 

in 

nr It j=i,H 

HUL T 

U 


XXr I t J> *P IJ,L » 

MULT 

1? 

1 1 

CONT INI'" 

MULT 

13 


C (T .L » =VX 

HUL T 

14 


CCNT TMJ' 

MULT 

IS 


RfTtlP'N 

MULT 

16 


PNO 

HUL T 

17 
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I ‘-’'ij ] t M npTM MN G*.(( 01 




,(1U 1 11 T T Nr N • V ATI- ( N, A , , T , i . ""C f T W , k f) 0 T I , -'U Tt^ ,ffOT 1 ,/♦)/. 

MMPAT - 

? 



1 Ht . , ''Av/ ! , AV?, 

NMR A Tw 

T 



* MX , “Y , Mti , MS , HA T t ,MA T?, MA T T, MA T . , M A r ,MflT •>! 

NMRAT P 

P 




N M P A T i. 

r. 



fMl' 0' T ^ 0 I w; tm- nlh-oatopS nr TR&n Mrt 

N M 'Y 4 T . 

(% 


1 

MIM'T I'lfis MY flirfllN''. IH ‘4 Tklir WHCS[ FTr.fNVALU'r AP£ 

MMRATs 

7 


r 

Th* n f wr:s, OU'^t-nuT IN' kir.fN T «, CALLfO T'1 ftN» 

NMR A T J 

A 


'■ 

t 'M . 1 (M NV A ( IJ' 1 

MMR AT R 

9 


'' 

•'nwr^ llfiN M.'m*- tv r, , KO'JOI*: JtJl Y i, TS 

NMRA TP 

1 0 

\n 


V ANT P'lTW, ANC f ANH PnTI AP F CflMf MATRIX 

NMPATR 

1 1 


( 


MMRAT p 

1 ? 



t:c»'HrN/rnNn/-'f An, sy ;tem,outoiit,nx ,Nt,NU, Nxc*«uc,Nt ,ni ,ciOTTt* 

NMRA TP 

1 T 



1 rONTUP ,NUMr ^ (jrpn, TPFSP.MOn'L ,N5CAL *' ,SA V, CHA T ,NK2 , I Ft AG , 

N M R A T o 

1 u 



M r,0 , f dP'^ , TPT .r^*- AOT,MrXFD,«nLTPT,SCAPLT,ZnH, KCUKT 

NMRATP 

1 5 

r- 


UT'r,‘-p PkAP« rY'-TFM, nUlPlJT, FORK, ^ONTUR , 'JAV, CMAT, R^ API , 

NMR A ( R 

15 



t r-jr T ^F^^» 

NMRATP 

1 7 



IKT n rr, I 11 , scapl r , /OH 

NMRATR 

1A 



rcHMCN/Ar.oNn/ nr lt, f fnalt, tfrf c,FFRFO,nFLFRO,r,AiNi,i‘ ain?,hn 

X MRAT P 

1 1 



PFAl INPTMin, OUTPT 1?nj ,TITLF (6) 

NMRA TP 

?0 

10 


nCMMCN /t ft Pr L '1 KPT,OU TP T, n TL 

NMRA TC 

11 



PF At I FP Q, mn 

X HR ATP 

?? 



nTHr M9I ON A < '1 X ,MX > , n tHX ,HU) ,C TFX , HX > ,H (MY, MX ) , r {HY , M XI , F f MV, MIJI , 

N MR A T » 

?T 



1 *M”l) , HP) , 

NMR AT >. 

'U 



'H t ( MX, MY) , W? ( Mx.mki , WJ (MX ,MXI , R 0 C 1 P ( MX 1 , R 00 T T 1 FX ) , r^ 0 TR (MX I , 

NMRATP 




'PCTrtHi'>,/(Hy),V(MXI,SAVl(M‘5l,SAV?lMSI 

NMPA TP 



(; 

niM^NdinN A(i5,iM, 0115, iM, Cd',151, h(15,1'i, r.ds.if^l. 

NMRATP 

‘7 


r 

1 F( 1 t 0) , 0(10,101 

MMR A TR 

2A 


c 

n IMP S'; ton mm I*”, IN), HznMiNi, M3np,ibi 

NMRATW 

2 9 


r 

OlMrKSrnN '^OOTPUN), RCOTIMN), RCTP1M1, ROTI(IF) 

NMRATR 

»fj 


f 

niHFNL'ION S4VM200I, SA)/?r?0O| 

NMRA TP 

M 


f 

n TMf I ON V n N I , /(Ml 

NMPAT R 

1? 



F OHMON /nunwp I T/ ishinam 

NMPA TP 

» T 



TNTFf.r- ON' 

NMRATR 

TU 



HAT A ON' /I / ,nUMY/0. 1 / 

NMRATP 

»5 



IF r I ''UMNAH ,0 ^ WM T t ( J, ONOI 

NMPA TP 

Sb 


•1‘tO 

FOPHAT (1 X ,*NHPaTP*> 

NMPATR 

«7 



no T01 M-1 , NU 

MMP ATR 

»8 



I Fon=o 

NMRATP 

T9 



nr ion r - i , ny 

NMRATP 

UT\ 

<.n 


N = N N 

NMPA TO 

- 1 



nc 500 1 XiJ , NX 

MMRAT R 

U? 



IP ( H ( r , I X > , tj F . 0 . n 1 no to n n i 

NMR A TR 

*. T 


O') 

nONT FNlJf 

MMRAT P 

-4 



MRI Tf M, 50 ’) I 

MMR ATP 

45 


■'H:’ 

TQpMAT (//nx,*POW OF M MATRIX IS NULL •//» 

MMR A TP 

45 



MRITf (7) ONr , i)UMV, OUMY 

NMRATR 

,7 



r,n TO <00 

MMP A TP 

45 


•ni 

CCM T IN(j‘ 

NMRATR 

h9 



IF ( M I , JJI Mn. 0, 0» no TO Ulo 

NHPATW 

'C 

; 


N M 1 K - N N 

NMPA TP 

1 



no T () u<i 

M MR AT P 

^ 2 


1 0 

no M ’0 i, NN 

N HR A TP 

» T 



( Kl = 1 , 

NMOATP 

4 



IF (M( I,< 1 . N- , 0, 0 IROTR (K Ml , 

MMR AT P 

‘ '■ 


'.?n 

TON T TNtJF 

NMRATP 

‘ f. 



OC '♦ <0 L L - 1 , NN 

NMRATR 

7 



nn R 21 K - 1 . NN 

MMP ATP 

f H 


121 



':i)-ipoun NT 

7^/71* CPT=1 FTN ^ . ?^76 ISO 

01/ 09/ 7t 

U, 12, 



If (>JCT5(*(» , cn.0,0.3P.f’(K,3J> .‘=O.C.O» GO TO 421 

NHPATR 

E9 



N M1»-tKN-I.L 

NNRATR 

fO 

^ 0 


GO TO >*3 1 

NHPATR 

1 


t2t 

CO^iT TfJiir 

'IMRATR 

f? 



T T~ST= a 

NHRA TR 

f 1 



00 >«•*'’ < - 1* NN 

NMRATR 

^4 



RCTT (0^0. 

NHRATR 

f S 

f n, 

H 42 

ncNT iNu'" 

HHRATR 

c 6 



no **?? 

NHRATR 

67 



DC 4‘>> L-l.NN 

MMRATR 

G8 



IF (K. ?Q, L) GC TO ^22 

NHRATR 

69 



IF (»0 TR <Kt . FQ ,0. O.OP. fli <*L » . ^C. 0,01 GO TO 4?2 

NHRA TR 

70 

7j 


POTT(U = l, 

NHRATR 

71 



IT. GT = ! 

NHRATR 

7? 


4?? 

0 CNT IKU" 

NHRATR 

73 



IF 1 ITi:ST,EO ,0 1 GO TO 443 

NHRATR 

74 



no H?i K“i ,NN 

NHPATR 

75 

7v 


Rcr R IK) = POT I < K1 

N HPAT R 

76 


4?^ 

rONT IMU*-' 

N HR A TR 

77 


<<33 

nCNT TNU' 

NHPATP 

’8 


440 

WRITt 13.4411 JJ,I 

NHPATR 

79 


44l 

FORMAT {/l3X,*NUMnFR*,I4,* INPUT DOFS NOT EKCITF NUMOCR*, I4 , • 

OU NHRATR 

80 


1 TPtJT* / ) 

NHRATP 

81 



GO TO TOO 

NHRATR 

82 


-31 

M?u »n=F <I .JJ) 

NHRATR 

81 



MH- N«^ 1 

NHRATR 

84 



OC K-2.HM 

NHRATR 

85 



W?(l .K) = -Mn.K-11 

NHRATR 

86 



H?(K,n=H(K-l, JJ) 

NHRATR 

07 



00 4 L=P » HM 

NHRATR 

68 



W2(K ,L ) = - AK-l ,L-l ) 

NHRATR 

09 


4 

CONT INU‘ 

N HR A TR 

QO 

•jr 

r 

CCNT INU? 

NHRATP 

91 



IF aPT , lT, ? ) ro TO ?40 

NHRATR 

9? 



WFTT^ (1.241) 

NHRATR 

93 


241 

FC'MAT {/* NUMFRATO^ MATRICF*^*/! 

NHRATR 

®4 



MAT 1 

NHRATR 

95 

9^ 


M A T ■’ = M X 

NHRATR 

96 



call "PIT! 

NHRATR 

97 



tNy.MV,MU»HS,MATl,MAT?,MATl,HAT4,MAT5,MAT6» 

NHRATP 

98 


?^0 

CONTTNU' 

NHRATP 

99 



II- ' 

MMRATR 

ICO 

1 "0 


IF <42 (1 , 1 » ) 1 81 ,8, 1 81 

NHRATR 

101 


4 

on 1«<0 II=l,LL 

NHRATR 

102 



on IT <=?,MM 

NHRA TR 

1D3 



IF ( W2 <X. 1 ) . NS, 0, 0» GO TC 2? 

NMRATR 

104 


in 

C0*'“ T INUF 

NHRATR 

105 

136 


or TC 20 n 

NHRATR 

1C6 


2 ? 

M =K 

NHRATR 

1C7 



7(11 ) -W2( M, 1» 

NHRATR 

108 



no ''ii <-i ,N 

NHRATR 

109 



no 1 " L = l.N 

NHRATR 

1 10 

11 J 


yi(»^.L)--<W?(Kfl,l>/7nni*(H?(l,L*ll^M?(M,t»lM 

NHRATR 

111 



COMT INir 

NHRATR 

112 


20 

CON T 

NHRA TR 

113 



00 31] K=l,M 

NHRATR 

114 



00 L=1»N 

NHRATR 

115 


122 



t>^(i TT r r 


?-</7u 


OP r =1 


f TN 4 .^ ♦7'iOfeC 


1 1,. 1 ?.<=;>■ . 


1 1 ‘ 



,L»1I 

NMRflT 9 

IIF 


’• 

CCN r I NU' 


N9R ATP 

117 


!(1 

nr*4T iNU" 


NMRb TR 

118 



IF (M-?) 


NMRATR 

119 


1/ 

no w c <- 1 iN 


MNRA TR 

1 70 

l?C 


STOP •■= (1 , <» 


NMRAT p 

121 





NHRA TR 

1 ?? 



W 3 ( M-1 ) =STOR * 


NMRATR 

l?3 


hT 

CTNT tNUF 


NNRflTR 

1Z4 



no '.0 K: 1 ,N 


nhratp 

l?5 

1?‘. 


r, 1 = 0 . 0 


^flRftT P 

1 



no 4? L-l^M 


NNRATR 

l?7 



r>i = wT(K,L)*<^?<t*i,n/7ni»Mr,i 

hnpatr 

i?e 


14 . 

OONT TNU^ 


NHR ATP 

l?9 



(K» H-1 i =r, 1 


NMRA TR 

1 30 

1 TO 

SO 

CCNT INIJF 


NHRATR 

1 31 



IF IM-?) 


NNRA TR 

1?? 



no 6C KS 1 ,N 


NHRATR 

1 7 3 



STORF^W.MK, 1 t 


N R A T R 

1 34 



HT (K , 1 »=N.T(< .M-II 


N9PATR 

1 IF 

1 


W 3 ( <, H-n =STOPF 


NNRATR 

1 ?e 



CONTINUE 


NHRA TR 

1 77 


6? 

M =0 .0 


nrratp 

1 38 



on 71 K<K=1»N 


NHP ATP 

1 79 



01 ^ -W2 ( 1 ,KKK f 1 >*W? (KKK 

♦1, 1> ♦Gl 

nhratr 

1^0 


7! 

C r N T I N UF 


NWRATR 

1 tl 



no 70 K=1 ,N 


MHRATP 

1 R? 



oc 7 0 L- 1 ,N 


NrlRATP 

1 P3 



W?r«,Ll5rHTtK,l) 


NMR ATP 

1 t4 


70 

OCNTINl'* 


NHRATR 

1 v5 

! 4*^ 


2 ( 1 ,1 » = Gi/z 1 1 n 


NHR AT o 

1 Ft 



N =N- 1 


NHRA TR 

1 F7 



MMiiNU 


NHRATP 

1 -*« 



IF ( [PT, lT, ?» r.O TO 180 

NHRATR 

1 F9 



CALL 0^=1 T1 ( W?, 


nhpatp 

1 0 

1 50 


iHv,My,Mn,MS,MATi,HaT^, 

HAT3 ,M*T4,MAT5 ,HAT6) 

NHRAT p 

151 


IHO 

0 0 N T r N U ' 


NHRATR 

15? 


Irtl 

CCNT INUF 


nhratr 

1*3 


C POILOWINC. *;TaT£HCNr ADHEO «^^PT 197? DUF TO CDC IRH nO LOOP 

NHRA TP 

154 


f' INnF< OIFFFPFNCE 


nhratr 

1 

1 


IF ( r 1, KF , 0) I r = ii-t 


NHPATP 

1*F, 


C IN Thc form— - 


NHRA TP 

i:7 


r 

on IHi: tr = l»LL WHt7“ 

LL = l 

NHRAT P 

1 *8 


0 IT TFPIINAL vaUJF IS 2 ON CHC 

NHRATR 

159 


r n T'P^TKflU VflLU‘ TS 1 ON IPH 

NHPA TF 

len 

1 >'0 


IF iN.EQ.ot no Tn 197 


NHP A TR 

If 1 



no 100 >< = i»N 


NHPATP 

l 5? 



nn 185 L=i,N 


NHPATP 

15 3 



H7<k,L )=-W7 (^ + l,L*l) ^ 

( ( H?( K4^1t 11 *H? (1 tL«ll)/H2U,in 

NHP A TP 

lc4 


I 

CCNTINLF 


NHRATR 

1F5 

1 '^5- 

1 -OT) 

CQNT INUf 


NHR AT P 

1 F6 



n F = w ? n 1 n 


NHRA T- 

1F7 



IF f IIJ 193, 10^4 193 


HHPAT R 

1 c8 


tg^ 

m 195 K j=i , II 


NHRATR 

1F9 



^F--nr*zi Kji 


NHRA TR 

170 

! 70 

t9F 

rCNT INUF 


NHRATR 

1 71 


igF 

GOMT TN'JF 


NHPATP 

17? 


123 



:l' •'■ ni TiNf 

7i/7h 1PT=1 FTN ‘♦.?»75Q6t. 01/09/7t 

IF. 17, 


TF ( N. 1 uC TO 1 )0 

NMKATR 

t?3 


WRIT i]JTPT(U, INPT(JJ»,D£ 

NMRATP 

17A 


-*10 FOOHai (//irJt,*THF*,fllQ,*/»,aiO,*NUMeRATOR GAIN IS * 

NMRATR 

17E 

t 

I’lnr^F APF ZtPO'S*/J 

MHRATR 

176 


GO TO 14 

NMRATR 

1 ’7 


1 49 OC ‘♦00 *<= 1, N 

NMRATR 

1 76 


DO 434 J=1,N 

MMPATR 

1^9 



NMRATR 

1 *'0 

i->c 

i.J0 CCNTINUt 

NMRATR 

1 ei 


IF (IPT.LT,?» go to P4T 

NMRATR 

1 67 


FALL SFTT 1 (HI , N, 

NMRATP 

1B3 


lMX,MY,HU,MS,MATl,HATP,MAT3,KATi.,MAT5,MAT6l 

NMRATP 

1*4 


?v»3 CCNTINLF 

NMRATR 

1 85 


n*?01» OUTPT ( n , INPT (JJNOE 

NMRATR 

186 


■»04 FORMAT (/Z10Y,,*THi * , A 1 0, • / • A 1 0 , * NUMERATOR GAIN IS**rl?.4//* THE 

NMRA TR 

187 


1 ZPPOP** nr THE TPANSFEP FUNCTION A»E*//?0X , *RE AL PAP T • , 1 G x» * I MAG I N 

NMRATR 

i*e 


?APT PAPT*/> 

NNPATR 

189 


IF (MN.Nf ,4,AND, System ,N£, TI write (1,1000) 

NMRA TR 

too 

140 

1 000 FORMAT (/ • FOR MODIFIED 7 - TRA ASFCRMS, ADD 7 = 0. POLE*/) 

NMRATP 

1 


GALL -IGFN ( N, hi, H? , hi , R0TP,P0TI,7,V, 

NHPATR 

IF? 


1MX,my,FU,HS,MAT1,HAT2,MAT3,MAT4,HAT5,HAT6) 

NMRATR 

193 


call CPMT (7,ROTR,ROTI,N, 

NMRATR 

IRA 


tMK, M> , MU, MS, MA T l.HAT?, NAT .1,MAT4,NAT5 ,MAT6> 

NMRATR 

195 

1 

WRIT- 

NMRAT R 

196 


d? FORMAT (//107,* THF COEFFICIfKTS CF THE NUMERATOR PCLVNOMIAL OROE 

NMPATR 

1<=7 


1 PEO FRCH THE LCWEST POWER OF E*//l 

NMRATR 

198 


NYl =N* 1 

NMP ATP 

199 


WRIT*: (7,81) (Z(IA),U*t,NYJ) 

NMRATP 

EGO 

? ' r 

8T format («^?0.R) 

NMRATR 

2 01 


19A CONTINUF 

NMRATR 

707 


TF (01 GI TL. €0. 0 ) GO TO ItO 

NMRA TP 

703 


IF ( MN . E 0. 0 > GO TO 111 

NMRATP 

?‘'4 


NSAV=NY 

NMRATR 

?C5 


NN-KK>1 

MMRA TR 

706 


NX= N 7+ 1 

NMRATP 

707 


IF (I ,GT. 1 .OR, JJ .GT. 1) CC TC 113 

NHRATR 

7:8 


RC0TR( FX) s S , 0 

NMRATP 

?rq 


ROOT! (NX) = 0,0 

NMRA TP 

710 

^tn 

11 1 CCNT INL" 

NMRATP 

711 


IF (OIGITL .ED, 0 , OP, STETFM ,^0. 3 .OR. FRPS .EC. -1) GO TO 110 

NMP ATR 

21? 


IF (I .GT, t .OR. JJ .GT, 1) GC TO UO 

NMRATP 

711 


GALL 7T OH (N.NN, 0*^,1 , 1 , R DO TR , R 00 TI ,ROTR, ROT I , L 1 ,OEE , 

NHRATR 

714 


tRX,My,MU,MS,MATl,MAT?,MAn. MA T4 , MATS , MATE ) 

NMRATR 

715 


WRITE n,iu) 

NMRATR 

716 


111 FORMAT (/lOX,* THE H-PLAN>‘ pCLFS ARE •//! 

NMRATP 

717 


writ: U,11?) (RCOTR(K) ,R00T I (K) ,K*1 ,NM 

NMRATR 

218 


ll? FORMAT {/(?ETQ,a)> 

NMRATR 

719 


UO CONTINUE 

NMRATR 

770 

z?j 

IF ( CIGIU.EC. D.OR.SYSTEM.EO, 3,OR.FRPS,EQ.-l ) GO TO 170 

NMRATR 

771 


TALL 7TOW ( N , NN , DE ,2 ,7 , ROOT P , R COT 1, RCTR, ROTI , L 1, DEE. 

NMRATR 

77? 


IMX,MV,MU,MS»MA Tl.MAT?, mat J,MAT4,MAT5,MAT6) 

NMRA TR 

??3 


WRITE (3,171) CE 

NMRATP 

774 


121 FORMAT 1//10X,* THE H-PLANE TPA»SFER FUNCTION GAIN IS *,E17,4/* 

NMRATP 

775 

??5 

1 THE ZEROES ARE*//) 

MMRATR 

726 


WPIT^i (T.ll?) (ROTR (X ) ,R0TI (< ) ,K*1,N) 

NMRATR 

777 


17C CONTINUE 

NMRATR 

278 


IF <ER FS .eg, -1) GO TO 131 

NMPATR 

779 


124 



Vjrtpj r 

/J/74 CPTsl FTN 7‘?06n 

01/09/T6 

14. 1? 



I FP -FPP5 ♦ 1. 

NMRA TR 

230 

? »n 


50 TH (31 1 ,.n0 ,3?0 » IFR 

NMRATP 

2 31 


Uf> 

TF ( MOOfL.EQ. 0) GO TO 301 

MMRATR 

232 



ir i (MOn (I ,2M ,EO, 1) GO TO 102 

NHP A TR 

235 



IF n«C0. EQ. GO TO 302 

NMRATfi 

234 



I Mni=2 

MMPA T» 

2 3S 

? 


nr Tc .3 01 

NMRATA 

2 3f> 


?3? 

rHon = i 

NMRATP 

237 


^Cl 

CALL PPQPSP ( K«NN,nEfIHOO,POOT9,ROOTI ♦ROTR.ROT IiSAVl *S «V?. 

NMRATP 

230 



t [ iJ.t * 

XMRAT P 

239 



iyy»MY,MU,MS»MATl,*1AT?,MAT3,MaT‘«,M*T5,M4T6l 

NHR A TO 

?*.o 

"*-0 


5 0 TO 3U 

NMRATP 

241 


:-2f 

CALL PGT ^NtNN.DrtROOTRtROOTI.KOTR^RCTItSAVl* Sav?*I* JJt 

NMRATP 

24? 



lMK,Hr,M)J»HS.‘3ATl»HAT2,MAT3,HAT4,HAT5,HflT6> 

NMRATR 

? 43 



GO TO 311 

NMRATP 

244 


?30 

WPITP M.211) JJ 

NMRATR 

245 

?^«3 

^11 

FOPHAT (//lOX, *COLUHN •,T2,» CF THF 0 MATRIX IS NULL*/) 

NMRATP 

2 46 


31 1 

IF l^-N.FO.O) GC TO 300 

NMRATR 

247 



NXtNSA V 

NMRATR 

2 48 



NNsNS AV 

NMRATF 

249 


300 

COM TiNUr: 

NMRATP 

250 

?>*n 


lnh 

N MPA TO 

251 


125 



ijpRom 


7V7i* 


FTN <*. ?♦ 75060 


snsoUTINt P'^o (NNU’1 tNN* r,«IN, FOOT fit P<^CT I, R OTP ♦ RCT It *■ 3 VI t SA V? i 
! IK'', TML, 

,HII ,MS ,HAT1 ,HAT? ,HAT:T ,MflT:,,HAT5tf«AT6» 

(• this subrout in‘^ coMPUTfs thp power s**fctpum coRRrs ponoint, 

r TO Th'" TPANSFFP F'INCTION whose poles are (ROCTR,POOTI » AND 

wnns' 7EP0-:S A»E r-?OTP,PTTn. IT IS ASSUMED THAT TH£ INPUT 
C TO TH' TPANSP-^^ function IS A WHTE NOISE PROCESS OF UNITY 

V^-IANC£ 4N0 HENCF Th- PSO IS GIVEN 0 Y THE SCUARF OF Th£ 

r ‘-CCULUS OF THF TP4 KSF TP FUNCTION. THIS ANY CCRRELATICN 

r OtSIRED IN The PANOOH process EXCITING THE SYSTEM SHOULD 

C 0- TKCLUOEn AS A SHAPING FILTER IN THE * A* MATRIX WHICH 

C TO FXCTTEO BY WH I T KOISE. NCTE THAT ONLY EXPONENTIALLY 

r rot^PELATEn pFQCtSSFS hay bf so STpuctupeo, 

QIHFMOION ROOTPIMXI tPOOTKMXl ,fiOTR<MX» ,ROTI <MX) .SAVl (M S t ,SAV ? IMS I 
complex HNl,RN2,PDt,R0? 

CCHMCN/COND/PEAC. SYSTEM. output , NX ,NY,NU,NXC *NUC ,N 1 ,N 2,0 IGIT L 
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IHX,MV, ^u,NS,NATI,MAT’,NAT3.HAT4, HAT5,MAT6» 

MAT 1 = HU 

call RHICCl <X1,NU,NX, 
lNX,My,MU,MS,MATl,MAT?,NAT3,MAT4,NAT5,MAT6» 
call ROISCl (K?,NU,NX, 

IMX. HY,mU,HS,NAT I ,MAT ?,NAT3,NAT4,N AT5,MAT6) 

CALL PUIGCI <K3,NU.NX, 

1 NX.N Y,MU, MS, MATl ,NAT?, naT3,NAT4,MAT5 ,MAT6» 
call POISCt (K4,NU,NX, 

1 MX. M Y, MU. MS, HA Tl , NA T?, MAT3,MAT4,MAT5,MAT6I 
MAT 1 =M Y 

call RniSCl (H,NY,NX, 
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call snisci (G,NY,NX, 
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MAT’ = m|j 
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MAT I =MU 
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R-> IS C 
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ROISC 
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RDICC 
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1? 
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13 
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16 
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POIS'' 

18 

R DI sc 

IP 
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Rnisc 

Pi 

RDISC 

p? 
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23 

POISC 

24 

ROTCC 

?5 

R 0 1 SC 

?b 

Rn ISC 

(7 

RDISC 

?e 

R!)ISC 

?q 
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30 

ROI SC 

31 

ROISC 

:»? 

R n cc 

’3 

ROISC 

34 

ROISC 

35 
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36 

ROISC 

37 

ROISC 

3 8 
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■•9 

R 0 1 sc 

t.0 

ROISC 
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ROISC 

..3 
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R 0 1 SC 

uE 
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(iG 

ROISC 

m7 

ROISC 

-.8 

ROISC 

h9 

ROISC 


ROISC 
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3 
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s 
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HDISCI 

6 

'3 »i: format lix » 

? 01 SCI 

7 

nr 10 1* i ,N 

ROISCl 

B 

i^Fa 't (A ( I P Jl f J= L pM ) 

ROISCl 

9 

IF (FOC (fl» «N£, 0 J nrOPl 

ROISCl 

10 

10 CCnTIM.' 

ROISCl 

1 1 

pftuon 

RDI SCI 

1? 

‘NP 

ROI SCI 
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''>U^*^OUT I Nf <?nCT (ft, 0 ,C»H,r,,FtKl,K 2 ,K 3 . *( 4 ,D, Ml, ha.Wl.w'OOTRtPlOTI, ? -)OT 
1 U,V, 

>«X»MY,‘^U,MS,HATl,HftT?,HAT^,MAT 4 ,HflT 5 ,HAT 6 ) ROOT 

r ROOT 

' this SUODOuTIN* COHPUT*"^ poot lccii as a function of two root 

' F-:- V»ACK GAIKS OCFINFO PV K1,K2 ANO K3,K4, ThF OP‘ N LOOP ROOT 

0 SvrTFM IS SCAL-TO 3 Y A SIMILAFITV TP A KS FO PHA T I CK . AT ROOT 

r CGKCLUr.TCN CF ThF ROCT LOCII computations the KUHcpATOR root 

C 7FPOrS ANH gains CORP'SPOKOIKG to TH'’ OPeK LCOP SYSTEM ROOT 

r AP - CALCULA TED, PQOT 

r ? ^OT 

0 Nl- NUMRFP OF root LOCUS POINTS FOR THE K1 , K? GAIN ROOT 

r N2- NUt-T^P CF ROOT LOCUS “ClNTS FOR THE K3,K4 GAIN ROOT 

S ROOT 

CCMHCN/CONa/REAC,SVSTtM,CUTPlT,NY,NY,NL,NXC,NUr»N!,N?,''ir. m, ROOT 

I CONTlJP,NUM^RSi FPPS, TR£SF,PnrPL,NSCALE,SAV,CMAT.KK?,IFLAG. ROOT 

? IGC,F0PM,IPT,REA03,1IXE0,HULTPT,SCAPLT , 7 OH, K CUNT ROOT 

INT-GF.R READ, system, OUTPUT, FCPM,CCNTUR,SAV, CHAT, RFAPT, =RPS,TPfSP ROCT 

TNT'GEP niGITL.SCAPLT , ZOM ROOT 

RPAL IFRFQ,if 1, i<2,K3, X4,HN ROOT 

cohhon/acond/ oflt, finalt, ifr^o, ffreq, oelfro,g A iNi, gain?, mn root 

niMf:NSTON A(MX,HX), 0 (HK,HU>,CfMV.HX»,H(HV,HX) ,G(MY,MX) ,F(MV,HU», ROOT 
l<l(MiJ,KXI,K’fMU,MX),< 3 HU,MX»,K 4 <HU,MKJ,D(MU,MUl ROOT 

OTHFNSION HI { MX ,HX) , HZ t NX, HXI , W 3 t MX, MX) ROOT 

DIHFHSION POOTPTNX) ,ROnTI<NX) ,UIMX) ,V(MX) ROOT 

OI*-‘-"NSION H (10 , 2 'n,NH<Z 0 ),P (? 0 ) POOT 

nOMMnN/LAflFL^INPT,OUTPT,TirL" ROO^ 

•^EAL TNPTrin), OUTPTRZOI ,TITLE( 0 ) ROOT 
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QATA RLANK/AH / ROOT 
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IF (GA IN?,EO, 0 . 0 ) GAIN 2 = 1 .) ’TOT 
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HAT ^-HX ROOT 
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94 
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ROOT 
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ROOT 
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T OOT 
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ROOT 
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1E7 

7U 

CCNTINUE 

R OOT 

168 


OUTPUT =3 

ROOT 

1 Fq 


IE (NK2.EQ.0) OUTPUT*! 

R OOT 

170 


FPPC=3 

ROOT 

171 


NU‘^'PS*0 

ROOT 

1 7? 
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^LMOOUTI NP 

i OOT 

r^/7U 0PT=1 F7H 4.-»*7505r, 

C 1/00/7E 

1^.13. 



0UTC»H t > ^ HLAPJK 

» OOT 

1 73 



INPT (DsOlANK 

ROOT 

1 7U 



NLU=NU*? 

ROOT 

175 

1 ’S 


no 5J 1 - 1 ,NUU 

ROOT 

17€ 



no '.1 J-ttN* 

R OOT 

1 77 



IF (H(I, J), FO, O.C I GO TO bl 

ROOT 

1 



r.o T O ‘ ? 

ROOT 

1 7S 



CCNTtNOf 

ROOT 

mo 

Iftf. 

5r 

CCNT INUf 

ROOT 

i«i 



TP tl.FQ.n GC TO 54 

ROOT 

1 52 



IF ft.fiT.NUl IsNLU-NM 

ROOT 

1 53 



nc ! j=i,Nx 

ROOT 

184 



HCl , J1 < I , J) 

R OOT 

1 85 

1 «' 


n (J . 1 > sH <j, I) 

ROOT 

IBS 



COMTINOP 

R OOT 

H7 



no 5*^ 1 »NI! 

ROOT 

158 



r a t J > = r (I , n 

ROOT 

159 


5C. 

CON TINU' 

ROOT 

190 

I'^a 

«54* 

NY-l 

ROOT 

1 



NO=l 

ROOT 

19? 



WRITE <T,55» 

ROOT 

193 


55 

fcrhat I //, 1 ox ,*root lccus option cchfutes the zeroes ce the 

FIRST ROOT 

l«4 



1 NON 7FRT ROH»/IOX»*OF K1 OR K3 RESRECTIVEtV DUE TO INCICATEO 

ROOT 

199 

1 


? input*/) 

ROOT 

196 



RETURN 

R OOT 

197 



ENO 

ROOT 

195 
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^0 




4C 


46 


'*0 


SU'^vOUTIrjr S: TUP (J»M,^(H«PtA,n,n,H,G,F,Kl,K2,KJ,'CU.n,Wi,H2,MT* 

1 PO'TTP» 

? MK ,MY ,HU ,M6T1 ,H4T2 i^aXT ,HflTU ihftTW ►‘ATS) 

( T'<rs ‘^'JBPPOGPA^ P<:0UG6S THe rt^IGTNAL INPUT HflTPIC, *^ POP 

THr- CPtN AND GLOSEO LOOP Sr$TEKS TO 'TftNDAPO FCPH AKH 

r ‘^cal:^ the RcSulting systfm xtth a diagonal oimilcpitv 

C. TPANGPCPwATTCN, 

C rr<5P CTION HAOP By G, NOPPIS JLLV 6 7 3 

rOMMON/rOND/RPAD*SY9TEH,nUTPUT ,NX ,NV , NU t NK C t HU C , M » N3 * C I G IT L* 

1 CONTUR ,HUMePG ♦FPOSi T9ESP,MOOFL tN SCALE, SA V, CH A T , N K ?, t F L AG , 

? rnc, FOPH, IPT , RF A0 3, HTXFO.MULTPTtSCAPLT ,ZOH ,K0UHT 
jMTrf.rp FA 0 , SY 5 T EM , OUT PUT ,FOPM,CCNTUR ,S AV , CH A T , RE AO 3 , FPP*:, TR63P 
iKTEGcp OIGITL,SCAPLT,ZOH 

COMMON / A COHO/ OELTtFINALT, I FRED . F FR-^ 0 , OE LF P 0 , G A I N 1 , G AI H? , MhH 
<1, K?, <3, K4, IFpro, hhH 
niM-NSioN M(i 0 ,?P ), MM( po ) , p< ?n» 

ni'^i=N$ION A (MX ,MY) ,13 IMK ,MUI ,C IMX,PX» ,M (MV,MK1, C(HY.mX) ,F rHV,MU», 
IKl (ML,MX I ,K? (MU,NX) ,K3tMU*MXi,KL(PU,HX>,D(MU,MUI , 

5Wl(MX, t*X) ,M?(HX,HX» ,W3t MX, MX) ,B00TP( MX » 

OIMt^HSION M1(15,15), M2(19,15), H;(15,15) 

C dimension A(16,15), 0(15, 10), CU5,15), H(15,1E), G(l5,15) 

r niMrM':;iOK F(l«‘,tO», 0(10,10), ROCTR(15), 

r 1 KKn.15), K2(10,15», K7(10,1'), Ki<U0,15) 

CCMMCN/BLKOAT/NUPER, OENOM, GAIN, GRAPH, BLOCK, ST AT F,YTO V, 7T0U,Y7T0K, 
ir THINV,I THINU.HPLOCK ,NVTOV ,N?TCU,FXYVJ,NVZTOK,KXT ,NVT ,NUT,NYl,NUl 
P£AL NUMEP 

IHT- GFR GRAPH, BLOCK, ST ATE, YTOV, 7 TCU, YZ TOK 

OIMENSIOH graph (20, 5) , BLOCK (20,3) ,NUMER(20 ,5) ,OENOHI20 ,5 » , 

X GAIN (?n » , STA TE (20 ,<♦) ,I TMINY (3 0 ) , I THI NU ( 20) , Y TO V ( ?0 , 2 ) , 

X 7TOU (?0,?» tNXYU(S) ,Y7TOK(20,2) 

CO*<MDM/SL0HRI T/ ISU9NAH 
IF ( TSUBHAM. GE.2 ) MRtTE(3,990) 
qpn FOPMAT (1 X,*SETUP*) 

IMI X=T 
rcxx ,} 
mat 1 -MX 

Hfl r ?rMx 

MAT ^ =M X 
MAT4 -H X 
MAT 5=HX 
MAT6 =M X 

IF ( CMAT , FO. 0 ) GO TO 5 

C 

C ELIMlNATf C MATRIX 

r 

call INVP (C,H2,NX,1, 

IHX, MY, MU, MS, H ATI, MAT?, MATT, MAT *1, MATS, KAT 6) 

CALL mult (H2, a, M l, NX, NX, NX , 

I MX ,MY.MU,MS,MATUMAT2,MAT3,MATJ,,MAT5,MAT6) 

call make (A,M1,NX,NX, 

1MX,MY,mu,MS,MAT1 ,HAT'»,MAT7,MAT4,MAT5,M AT6I 
MAT4=MU 

CALL MULT ( M2 , R , Ml , N X , NX , NU , 

1 MX, HY, MU, MS. MATl, MAT 2, MAT 3, MAT A, MAT 5, MAT 6) 

MAT’ =HU 


S ETUP 

? 

3' TUP 

X 

S 'TUP 

<* 

s TUP 

5 

SETUP 

6 

SETUP 

7 

SFTUP 

n 

SETUP 

q 

S * TUP 

1 0 

; ETUP 

11 

sr TUP 

12 

S . TUP 

1 3 

3 ETUP 

1<4 

S - TUP 

15 

3 ETUP 

16 

3 - TUP 

17 

SETUP 

IB 

3 ' TUP 

19 

S . TUP 

?D 

S= TUP 

21 

3 ETUP 

?2 

Sc TUP 

23 

S ' TUP 

24 

S cTUP 

25 

S E TUP 

26 

3 ET UP 

27 

SFTUP 


ScTUP 

29 

3 FTUP 

^0 

S *^TUP 

3 1 

S-: TUP 

3? 

3 ETU° 

J ? 

SE TUP 

34 

SETUP 

35 

> - TUP 

36 

SlTUP 

37 

SETUP 

38 

SETUP 

39 

3 ETUP 

40 

SETUP 

41 

SETUP 

«♦? 

3 ETUP 

A3 

SETUP 

44 

3 ETUP 

45 

3 ETUP 

46 

SETUP 

47 

S ETUP 

(i8 

SETUP 

49 

3 ETUP 

EO 

SFTUP 

El 

Sf TUP 

7? 

3 ETUP 

E3 

SETUP 

E4 

SETUP 

55 

3 ETUP 

56 

SETUP 

57 

SETUP 

6 8 


l4l 
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19. IV, OA 


mat UsHX 


SETUP 

59 


rCLL MAKF < n , wi , ^X* MU, 


SETUP 

60 

0 

1MX,'-Y,HU,HS,'^AT1,PAT?,HAT<,MA14,mAT^,MAT6> 


SETUP 

tl 


CMa T-*n 


SETUP 

6? 


'■.C TC (f 0,10. 101 . SV^,TE*1 


SETUP 

61 


10 IF ( N<?. EQ. 0 1 GO TO UO 


SETUP 

6V 


i- 


SETUP 

65 

, c 

eliminate K?,Kt* ^^ATPTCcS 


SETUP 

66 


r 


SETUP 

67 


IF (SVrTEH.eO. ^.ANT.MI XEO.NE. 11 GO TO EfeO 


SETUP 

68 


NAT 1 rMU 


SETUP 

€9 


HAT ?=HX 


SETUP 

70 

/n 

HATL =MU 


SETUP 

71 


CALL MULT (K?,«,W1 ,NU,NX,NU, 


5 ETUP 

7? 


lMX,MV»»'U,MS.HATl,HAT?,HAr3,HATJ4,MAT?,MAT6> 


SETUP 

73 


00 1’ Isl.NU 


SETUP 

74 


DO IT J-1,NU 


SETUP 

75 


I , J )s-Hl ( T , J> 


SETUP 

76 


l.T CCNTTNU'" 


SETUP 

77 


W?( I ,1 ) = 1.0+W? (I ,n 


SETUP 

78 


1? CCNT iNUr 


SETUP 

79 


IF lOICITL .HE, n GO TO 618 


SETUP 

80 

«c 

on MM 1 = 1 , NU 


SETUP 

81 


DO MM J= 1,HUC 


SETUP 

8? 


H?n,J)= O.Q 


SETUP 

81 


IF n ,E Q, J> W2 (I, u* 1.0 


SETUP 

84 


119 CCNTTnuE 


SETUP 

85 

P5 

fl18 CALL INVP iH?,Hl,NU,0, 


SETUP 

86 


IM X.Mr.MU »HS ,HATl ,MAT?,MAT3 .HAT*,H»T5,HAT6» 


SETUP 

87 


HATl =HU 


SETUP 

88 


M AT U=H X 


SETUP 

99 


call mult <K?,A,M2,NU,NX,NX, 


SETUP 

90 

90 

1 hx,my,hu,MS»MAT1 ,MAT2, HA T1, MA T4,MAT5,MAT6I 


SETUP 

91 


CALL ADO ( 1. 0, Kt ,1. 0 ,NU ,NX , 


SETUP 

9? 


tHK,MV, MU , MS, HATl, MAT?, HAT. 1, HAT 4, HAT 5. HAT 6) 


SETUP 

91 


MAT 1=MX 


SETUP 

94 


call MULT nil,H3,M2,NU,NU,HX, 


SETUP 

95 

9*' 

l7X,MV,Mt),MS,HaTt,MAT7,HAT3,MAT4,HAT5,HAT61 


SETUP 

96 


HAT T=MU 


SETUP 

97 


HAT^ =ML' 


SETUP 

98 


''ALL mult (HI ,n ,W3,MU, NU,NU, 


S ETUP 

99 


lHX,MY,MU,MS,MATl,HAT?,HAT1,MAT4,HATS,MAT<jl 


SETU° 

100 

100 

HAT1=HL 


SETUP 

101 


H at ? = mu 


SETUP 

102 


MATIsMx 


SETUP 

183 


hat 4=HX 


SETUP 

104 


CALL HAK" (p,W3,NU,NU, 


SETUP 

105 


t MX, MV, MU, MS, HA Tl, HAT?, MATS, HAT*,, MAT 5, M AT F» 


SETUP 

106 


MOT ^ = MK 


SETUP 

107 


call make (K 1 , H?,NU,NX , 


SETUP 

108 


1M X, M V, MJ, MS, MAT 1, HAT? , MAT3 ,HA TU ,MAT5 ,HATG 1 


SETUP 

109 


NX?= 3 


SETUP 

110 

1 n 

GC TO 90 


SETUP 

111 


9b0 MAT1=MU 


SETUP 

112 


MA r ■» = MX 


SETUP 

113 


CALL mult (K?, a, HI, HU, NX, NX, 


SETUP 

114 


IMX, MY,HU,HS,MATI ,MAT?,HAT3,maT9 ,MATE ,HAT61 


SETUP 

115 



142 



n •> 


1 




1 ^0 


l Vj 


luo 


lt.5 


l-c 


l-r 


l f-'- 


17C 


>.UTItr TIP 7 W?H CP^rl 


FT^ 


CALL ^LLT (If U , a , W? , NU, ,NX, 
lH¥,HV,HLI,MS»HATl*MAr?, HAT1,HAT<*»MAT5|H4T6> 

CALL aon (I ,0 ,Kt ,1.3 »M l.W3,NU*NX, 

1 H X , my . MU , MS , M A T I . HA T? , M A T3 , HA T4 , K A T'j , M ATti ) 

CALL AHO (1,0, K3, 1,0, W?,«1,NU,WX, 
tMX,MV,My,MS,NATl,MAT?*M4T1,HAT<,,MAT'5,HAT^) 

TALL MAKE (< I, Ml, NU, NX, 
lHit,HY,MU,MS,MATl,MAT?,M4T3*NAT4,HAT5,MAT6l 
CALL MAK- (<3 ,N1 ,NU, KX , 
1 mk,mv,hu,M$,HAT1,MAT?,MAT3,NAT4,MAT5,MATX,I 

M OTurMtl 

~ALL MULT (K?,P,N1,NU,NX,NUi 
1 hx.my.MU, MS, MA Tl,MA T?, M»T3,NAT4,M AT5,MAT6I 
CALL mult (X*» NU, NX ,NU, 

1MX,HY,MIJ,MS,MATI,MAT?,mATX,MAT4,HAT5,MAT6> 

MAT »*= MX 

CALL HAK^ ( <? ,Nl ,NU , NU , 

1 MX, MY, HU, MS, HAT 1, HAT?, M 4 T 3 , H AT 4 , M AT 5 , M AT S> 
call hake (K4,N?,NU,NU, 

1 my, MY, HU. MS, M ATI, mat?, MAT3, MATA ,MAT5,MAT6> 

-,0 CONTINUE 

50 IF ( CUTPUT.EO.l. OR, OUTPUT, f 0.3 » GC TO 51 

C 

r eliminate g hatsix 

r 

HATl - MY 
M AT ?-M X 
Mfi T 3 ^ MV 

M AT 4=MU 

CALL MLLT IG,P,M1,NY ,NX,NU, 

IMX, MX, Kl. MS, MATl, MAT?, MAT3,MAT4,MAT5 ,HATb> 

maT3=MU 
M ATm=MX 
MAT T=M X 

call Ann n.C ,F, 1,0,H1,H?,NY,NU, 

I MX, my, MU, MS, MA Tl, MAT?, MAT3, MA T4, MATS ,MAT6I 
CALL MAKE (E,W^,^Y,NU, 

1 HX.HY, MU,HS,HA Tl ,MAT?,MAT3,MAT4,HAT5,MAT6» 
hat ?^H X 

CALL hulT (S, a ,M1 ,NY,NX,NX, 
1MX,*^Y,HU,MS,HAT1,MAT?,MAT3,HAT4,HAT5,MAT6» 

call AOn (I , 0, H, l.O, Ml, M?,NY,NX, 

IMX, MY, ►u,MS, MA Tl,MAT?,MAT3,MATfc,MAT5,MAT6» 

CALL hake (M.H?,NY,NX, 

IHX, MX, MU,MS,MAT1,MAT?,MAT3,MAT4,MAT5,MAT6) 

IF tCUTPUT.EO.?) nUTPUT=3 
IF (OUTPUT. EO, 4) OUTpUTsT 
•;i TF (MIXED. NE.l. OP. PEAD.EO.^I GC TO 210 
r 

c augment system with contpol system mooeled In class 

c 

MATl -M X 
MAT? -MX 

call 70T1 (C,M^,MX, 

IMX,hy,hU,MS,MATI,mAT?,MAT3,MAT4,HAT5 ,MAT6» 

no r?ll 1=1, NY 
r ( I , I) =1. 0 
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SETUP 
SETUP 
SE TU» 
5 ‘■TUP 
St TUP 
SETUP 
SETUP 
S 'TUP 
S : TUP 
SlTUP 
S • TUP 
SETUP 
SETUP 
SETUP 
SETUP 
5 GTUP 
5 nup 
Sr, TUP 
5 ' TUP 
S - TUP 
S : TUP 
SETUP 
SETUP 
SETUP 
SETUP 
5 F TUP 
3 ETU'' 
S ETUP 
S ET!)P 
SETUP 
5 ETUP 
S ‘^TUP 
SETUP 
5 r TUP 
SETUP 
SETUP 
S*^TUP 
SETUP 
S ETUP 
S ETUP 
S ETUP 

S ftup 

SETUP 
S ETUP 
S'TtJP 
SETUP 
S ETUP 
SETUP 
S ETUP 
S_ TUP 
3 ETUP 
SETUP 
SETUP 
SETUP 
SETUP 
SETUP 
S - TUP 


1 4 , 1 4 , ^ n . 


1 1 F 
117 
lie 
119 
1?0 
l?l 
1 ?? 
1?3 
l?4 
125 
l?fi 
127 
i?a 

129 

130 

131 
1 37 
1 33 
1 34 
1 35 
1 36 
1 3 7 
135 
1 39 
140 
1 -I 
1 4? 
1 ‘.3 
I ^4 
luS 

146 

147 
l-*fl 
l«.9 
10 
1 " 1 
1 :2 
153 
1^4 
1«=5 
1'6 
1^7 
158 
1 E9 
lEO 
161 
le? 
If 3 
164 
169 
I f 6 
167 

169 
I 7C 
1 71 
1 7P 
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1 ’v 


ttVO 




1 90 


nr 


20 Q 




?10 


2 ir 
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FTN 4.?^7536C 


I I CQNT INUC 

TALL CLASS t A , , C , H,r, , F , Q , Ml , KJ» 

I MX, my,hu« Tt ,HAT2,H4T'^ ,MflT «,MAT5#MAT6l 

1' CONTINUE" 

MAT! -MX 

hat MX 

MAT T = MX 
MAT U = HX 

call **A«<~ (Hl,A,KX,MX, 

1 MX , MY , “II , MS, ma T 1 ,MA T2 , H a T },M a 1 ti,M ATSf M at 61 
IF (NSPALS*- C.a» GO TO 5^ 

IF (MS^'ALf . rO.2) GO TO 9 2 


sxr r 


iCALF'^ PY A OIAGCNAL SIHLAPIOY TRANSF-FMATl N 


ICX= I 

call AFCALc. < NX , J,M , mm ,P ,H1 ,14? ,H3 .POCTR, 

1 MX ,MY ,MU, MS ,mAU .MAT?, MATJ.M4T<*,MAT5,HATbI 
'!C Sn 1= t.NX 
or 60 K- l.Nl) 

<1 (< , I»=<1 « » II/TU > 

IF (SYST EH.NF • 7. ANO. NK ?. N£. 1) GO TO bfct 
K3( <, n = K3 (K, n /FU > 

Tbi on n > = o ii .< )*pm 

so continue 

IF ( SY stem, ^0, 3 .OR, MIX FO.EO . 1 1 GO TO 66? 

00 Tn 1=1, NY 
00 70 F=1,NX 
H 1 I . K1 =H ( I ,K > /P IK ) 

70 CCNTINUr 
ah? M AT I -MX 
‘^AT'* MX 

tall make <A,Wl,NX,NX, 

IMX.MY.MU, MS, MATl ,MAT?,HAT3,MAT4,MAT5,MAT6> 

IF ( IPT. LT, 1 } GO TO S2 

MRITF n,UC) 

Ito FC*?MAT < IHl, 10X,*THE REOUCFD and scaled SYSTEM IS* 1 
CALL SPIT (A,P,C,M,G,F,<l,K?,K3,K4,0, 
1MX,MV,MU,MS,MATI,HAT?,MAT 3, mat 4, MATS, MAT 61 
IF i OIGT TL. NE. 1) GO TO 6 0 
IF 1N7T0U. EO. 0. AND,NVTOV,€0. 0 J GO TO 465 
IMIX -I 
GO TO 

OISCRETI7F CONTINUOUS PCRTION CF SAHPLEO-OATA SYSTEM 

465 IF (MMM.fQ.O.OI GO TO 455 
IF f SVST fc'M, NE. 1 1 GO TO 456 
GO TO 457 
U56 MRITF n .4561 

^<-6 FORMAT (/,* °OQT LOCUS AND CLCSEO LOOP OPTIONS NOT ALLCHEO 
-OIFIFO 7-TPANSFOPMS*/l 
457 XM=MMM*nFLT 

call EAT (XM,A , Ml, M2, M3, C,MXC, 

IMX,MY,MU ,HS,MATl ,MAT? ,HAT3,HAT4,MAT5,MAT6) 

IF ( ZOM, EO, ? > GO TO 459 
0UTPUT= 1 


[/ 39/7« 

14, 14. 0« 

5 ETU® 

1 73 

SETUP 

174 

SETUP 

175 

5 FTUP 

1 76 

SETUP 

177 

SETUP 

179 

SETUP 

1 79 

SETUP 

1 60 

SETUP 

1 Ft 

SETUP 

l.^? 

SETUP 

1 P3 

SETUP 

194 

SETUP 

185 

SETUP 

166 

SETUP 

177 

SETUP 

188 

SETUP 

169 

SETUP 

ISO 

SETUP 

191 

SETUP 

192 

SETUP 

193 

SETUP 

194 

SETUP 

195 

3 ETLfP 

196 

SETUP 

197 

SETUP 

198 

SETUP 

199 

SETUP 

200 

SETUP 

201 

S ITUP 

202 

3 ETUP 

203 

SETUP 

?04 

SETUP 

205 

SETUP 

206 

SETUP 

207 

SETUP 

2C6 

SETUP 

209 

3 ETUP 

210 

SETUP 

2U 

SETUP 

212 

SETUP 

213 

SETUP 

214 

SETUP 

215 

SETUP 

216 

SETUP 

217 

SETUP 

218 

SETUP 

219 

SETUP 

220 

SETUP 

221 

SETUP 

222 

1 SETUP 

223 

SETUP 

224 

SETUP 

225 

SETUP 

226 

SETUP 

227 

SETUP 

228 

SETUP 

229 
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?>-3 


2^0 




2^0 


?rtP 




MAT 1 -MY 

CALL HULf W.^« NV«NXn«NKC* 

tf'X,‘<YiMLUI-'^,MATl,MAT?,HAT1»«Am«HAT>,MATbJ 
M A T:t = Ml) 

►'ATI : Y 

CALL MULT (W T »P«C »NY , N<C »NUC f 
tf<X,MV,MiJ,HS,HATl,HAT?,MAT3,MATA,H4T5,HAT6» 

M ftT ! =M Y 
H AT S =H Y 
MA Th =MU 
M AT 5 =H Y 
MATft :MU 

CALL Am tl. tC. 1« fF,P,NY,NUC* 
1MX,MY,MU,MS,^AT1 , HAT?, HATS, MAT4,MAT5 ,MATbl 
kATI^MY 

hat hy 

HAT4=HX 
M A T b = M Y 
M ATb=M > 

call hult jm, hi , ws,hv,nxc,nxc ♦ 

1HY,MY .MU ,MAT1 ,HAT? , H A T3 , M4 , HA T5 , HA Tb ) 
CALL mak- (H, H3»NY,>4XC, 
tMX, MY, HU,MS,MATl.HAT?,HAT3,HATU,HAT5,HATbT 

TF (70H, FO.HUC) GO TO ^55 
HNl= TOH* T 

no U^o I -l.NY 
TC J^NNi.NLC 

IF ( F ( I, J) .NC . n GO TO 461 
-+C.3 CCNTINUF 
CO in i.6? 

-.61 HRI T C ( 3 , 448 ) 

4b? TC 463 1=1, NY 

no J^NNI.NUC 

Yx- n , 0 

no ^.64 K= 1 , NXC 
XX::XXtH( T ,K1 *0 (K, J) 

4^4 CCNT INUC 
F TI , J)-XX 
4o3 continue 
OUTPUT =3 
4S5 CONTINUE 

CALL EAT (nELT,A,Ml,M2,H3,C,NXC, 
1HX,MV,hu.MS»mAT1.HAT?,HAT3,hATA,HAT5,HAT6) 

NM = 70H*l 
DO 7 I=UNXC 
OC 7 j = i ,NXC 
A ( I , Jl - HI ( I , J > 

7 CCNTTNLE 

IF <7QM,EQ.0> go to 441 

H AT 1 =H X 

NAT4=HU 

CALL MULT (H?, 0, W3, NXC, NXC, 20H, 

I MX, MY. MU, MS, HATl ,HAT? , MAT3,MAT4 ,MAT5 ,MAT6I 
MAT ? = MU 
HAT 4= HX 

call MAxr <B,H3,NXC, 20H, 

I MX, HY, MU, HS. HA Tl, MAT?, MAT 3, MAT 4, HAT 5, HAT 61 
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SETUP 

2s34 

SETUP 


SETUP 

236 

S ETUP 

237 

SETUP 

238 

SETUP 

2 10 

> ETUP 

24[) 

SETUP 

241 

SETUP 

?-? 

5 cTUO 

243 

SETUD 

244 

SETUP 

245 

SETUP 

246 

SETUP 

247 

SETUP 

24B 

SETUP 

2 49 

S ETUP 

2E0 

ScTUP 

?E1 

SETUP 

2 ? 

; FTUP 

2E3 

SETUP 

2E4 

SETUP 

2E5 

SETUP 

2E6 

SETUP 

2E7 

SETUP 

259 

> ETUP 

2E9 

SETUP 

260 

SETUP 

261 

3 ETUP 

2f 2 

SETUP 

263 

5 ETUP 

264 

SETUP 

265 

SETUP 

266 

SETUP 

267 

SETUP 

268 

SETUP 

269 

SETUP 

?7Q 

SETUP 

2 71 

SETUP 

2 72 

SETUP 

273 

S ETUP 

274 

SETUP 

275 

SETUP 

276 

SETUP 

277 

SETUP 

278 

3 ETUP 

279 

SETUP 

280 

SETUP 

281 

3 ETUP 

262 

SETUP 

283 

S'^TU** 

284 

S" TUP 

285 

SETUP 

266 
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P‘50 




?nc 




M c 


31C 






5^0 


3 3S 


3UC 


thiPOlJTTK: S^ ruo 73/74 CPT=1 


FTN 4* ?> 7506f 


^4l IF (POH.FQ.N'IC) r^O TO 44? 

IF I /OH. LT. NMC ) CO TO u 43 
WRITf (1,4441 

^44 FOPwar (/,* 70H CRFMSS THAN N»JC*/) 

44 3 00 4*,1 1= 1 , NV 

00 ‘♦45 J=NN1,NUC 

IF ( F ( Tt J» .N- . 0, ) CO TO 444 
«4‘^ CCNMNU^ 

GC TO 44/ 

44fc MfilTp (3,4461 

44 F FOF“AT (/• F MATRIX NOT NULL ♦» 
h47 00 - 4 O Ist,NXC 

00 4-q JsNNl,NIJC 
X X = , 0 

00 4rP 4SI.NXC 

XX= X X*H1 < I , »0 *R (K, J> 

CCNTINLP 
HI (I , J) = XX 
«4q rCNTiNUL' 

IF (“MM.NE.O.O) go TO 470 
00 r =1,NY 

no >♦:?'’ J= NNl ,NLC 
XX= 1. 0 

oc 4^:^3 <=i,Nxc 

XX= XXf-H( I ,KI ♦ f> ( X, J) 

453 CCNTINU*^ 

FU.J> = XX 
uC? CONTTNUr 
■71 00 41 1=1, NXC 
on 4-i JsNNltNUC 
4(1 , J1 = Hid ♦ J» 

.51 CCNTINLP 
OUTPUT =3 
44? CCNTINU' 

l=" IF ( IPT. LT. 1 » GO TO 60 
HPIT-: (3,111» 

111 FC9M4T MH1,10X,* THE OFSCRFTIZFD SrSTEHIS*! 
CALL SPIT (fl, T, C, H, G, F, Kl, *2, K3t K4 t Ot 

1 MX, 4 y, MU, MS,«ft Tl ,Ma T?,M4 T3fMAT4»HAT5#K4T6> 

61 CONT INUE 

IF (Miy^n.NE.l) GO TO 5Q0 
IF { IMTX, EO. ?) GO T 3 5 0 0 


r SLO'-VCTPHS OFSCRMFCJ IN STtPl AtlO ST£P2 OF HIXCO LOADING OPTION 

'' flpp COUPLED USING YTOV AND 71CL 


IF (MLOCX.EO.C) go TO 500 

MA T 1 =MX 

mat? =4X 

MAT ( -M X 

MA Ti, =HX 

call 7CT1 (HI , NUT, NYT, 

1HX,mv,MU,MS,MAT1,IMAT?,HAT3,MAT4,MAT5,MAT6I 
IF (NTTou.FO.O) GO TO TOO 
no 351 T=1,N7TCU 
Wl( ’ TOIH I ,?» , ZTOU (I , 1> fNt 1> a 1. 0 

301 FONTIHU- 


Dl^09/7f. 

14.14.06 

SETUP 

?67 

SETUP 

?A8 

SETUP 

?09 

SETUP 

290 

SETUP 

?91 

SETUP 

292 

SETUP 

293 

SETUP 

294 

SETUP 

295 

S ETUP 

296 

SETUP 

297 

SETUP 

298 

SETUP 

299 

SETUP 

3C0 

3 ETUP 

301 

SETUP 

3fi2 

SETUP 

303 

SETUP 

3C4 

SETUP 

3 05 

5 ETUP 

306 

SETUP 

307 

SETUP 

3ra 

SETUP 

309 

SETUP 

310 

SETUP 

311 

SETUP 

312 

SETUP 

313 

SETUP 

314 

SETUP 

315 

SETUP 

316 

SETUP 

317 

SETUP 

318 

SETUP 

319 

SETUP 

320 

SETUP 

321 

SETUP 

322 

SETUP 

323 

SETUP 

324 

SETUP 

3 25 

SETUP 

326 

SETUP 

327 

SETUP 

328 

S ETUP 

329 

SETUP 

33Q 

SETUP 

331 

SETUP 

332 

SETUP 

333 

SETUP 

334 

SETUP 

335 

3 ETU® 

336 

SETUP 

337 

SETUP 

338 

SETUP 

3?9 

SETUP 

340 

3 ETUP 

341 

SETUP 

342 

SETUP 

343 
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SUf I'OUTT 

1':TU9 7T/74 OPT = l 

FTN 4, ?♦ 75oer 

0 l709/7f 

14,14. 


100 

IF tNVTOV.^T.D) GO rn 30? 


SFTU9 

344 



m 3ii3 ! = UNVTCV 


S£ TUP 




wnvnvd »?)*-Nui tVTov(i*in = i.c 


SCTUP 

346 


303 

C ON T TNUf 


SLTUP 

347 



MAT 1 = MY 


if T IP 

3«,A 



HaT?=M() 


S £ T UP 

349 


ur 

tall 9LlT (F, W1,H.3,NYT*NUT.NY1, 


C ‘ TtJF 

3-3 0 

0 


l‘1X»MY,MU,HS,MflTl,MftT?,MAT.3,MATJ|»r'AT',MftTFI 


setup 

3E1 



nr 30€ IMrNYT 


Setup 

3' ? 



DO 107 Jrl,NVT 


3 ETUP 

3^3 



H3(I . J) = -W K I ♦ J) 


S' TUP 

3E4 


10 7 

CONT TN()f 


3:tup 

3 -.>5 



H3(r.ii = i.n*4 3(i,r> 


3 "TUP 

3^6 


105 

CONTINUc' 


SETUP 

3C7 



CALL TKV?(H3, C.NYT,!. 


s^TUP 

3P5 



lMK»MYiMU,HS,MATl,MAT?,HAT3,HATl4,rATS,HATo) 


SETUP 

1 ‘ 9 



HAT 1 :MY 


Sf TUP 

1E0 



M AT ? = M H 


S tTUP 

3€1 



MAT3 = H Y 


SETUP 

37? 



hall MtJLT (G , H,M 1 »NYT , NYT ,NY T , 


3 ET1JP 

3t3 



lMY,MY,Mt[,^«;,»^aTi,HAT?,HAT3,MAm,MAT5«MAT6l 


SETUP 

3E4 



mati =M Y 


SETUP 

3c5 



HAT 3 = MY 


S ETUP 

’ee 



call MAKT { H, W3t nyt * nkt. 


Sf TUP 

357 



tMy,MY,HU,MS,MATl,MAr?,MAT3,HAT4,MATS,HAT5» 


3 ETUP 

3t8 



IF (IC'<'.Ne,l ) GO TO 317 


SETUP 

3€9 



no 311 1=1. NY 


SC TUP 

370 

<‘'U 


no 313 J=1.N)( 


SETUP 

371 



H (I , J > =H 1 1 , J 1 /F (J > 


SETUP 

37? 


U3 

CONT INUL 


> ETUP 

3 73 


31? 

CON TINLF 


S^TUP 

1 74 



MATI =ny 


SETUP 

3 75 

T7‘ 


MAT '* = M Y 


SPTUP 

.3 7 6 



mat i^my 


SETUP 

.3 7 7 



mat 4-MU 


SETUP 

378 



CALL MULT < C , F , M3 ,N Y T * N Y T , NU T , 


SETUP 

3 79 



lMX.HY,MU,MS,MATl»MAT?,MAT3,MAT4,MAT5tMAT6> 


SETUP 

3«0 

l>'f’ 


M A T 1 =H V 


SETUP 

381 



MAT? =MU 


SETUP 

38? 



MAT 3=HX 


3 ETUP 

383 



HAT4=MX 


SETUP 

3«4 



call MAKf tF ,W3 , NY T.NUT ♦ 


SETUP 

3H5 

T(t r 


lMX»My,M|J,MS.MATl,HAT?,MAM,MAT4,MAT5,MAT51 


SETUP 

386 



MA T 1 =M X 


SETUP 

387 



MAT:*r Ml) 


SETUP 

3 F8 



call MULT (9,M1 ,W3,NXT .NUT.NVT, 


SETUP 

3 89 



1My,MY,MU,HS.MATl,MAT?,MAT3,MAT4,MAT5.HAT5| 


SETUP 

3C0 

.590 


M AT?=M X 


SETUP 

391 



MB T 1=MY 


S ETUP 

39? 



call NULT <M3,H,M1 .NXT.KVT.NXT, 


3 ETUP 

3E3 



1mx,MV,HU,MS,MATI«MAT?,MAT1,MAT4,HAT5,HAT5» 


S ETUP 

3 94 



MAM = MX 


SETUP 

3 9*: 

195 


CALL ADO (1. 0, A,l ,0,MI , A,N<T,NtT, 


SETUP 

396 



lMV,MV,Mn,MS,MA71,MAT7,MAT3,MAT4tMAT5.HAT5> 


SETUP 

.3 9 7 



M AT 1-MY 


SETUP 

3^8 



MAT 4 rMU 


SFTUo 

399 



CALL MULT (M1,F,W1*NXT .NYT.NIJT , 


SETUP 

4 :o 
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-.111 














i*Ub 


*,5 0 


U- 5 


t^^XlT I >*'■ .1 Tt'i’ rPT^t 


FTN U, ?♦ 7Sn6f 


lH)f,MY,HU,MStHiTl,«flT P.M-UJ, MAT i,,H(»T5tMAT6> 

TF I TCK, ME . I > c;a TO T I 0 

00 ?1t 1=1, NX 

OC Ttl J=1,NX 

wi ( r , Ji = Ni ( I , jwp( J» 

M! rCNTlMJ- 
'i: OCMIINL*-' 

mat <-M X 
mat ♦ -MX 

M AT T =M X 
MAT.»-MU 

TALL Ann (1.(1 ,P . 1, 0 ,N1 , M?,NXT,NUT, 
t MX,MY, MH, MS, MATl .MAT?, MATl, HAT4 »MAT'=- ,M*T6I 

MAT^-M(.i 

CALL MAK ■ (rJ.Hi.NXT, NUT, 
tMX,MY,M[),Mr,MAM,MAT?.MftT3,NATM,MATS,MAT6» 

lin CCNTtNU^ 

IF tTMI x.N*^ . I > r-,0 TO 466 
I MT X -? 
r.O TO 

IF An , EQ , u.OR.HI XFO , EO. U F*0 TO ??8 
GD Tf' 7'*! 

IF ( NV 7T OK. EO , 0 > r.n TO 7?0 

r CCNSTPMCT F^TcrACK matrices K1 ANC KJ FROM yZTCK 

r 

IF (^YGTfM.FO.n SYSTEMS? 

K = 1 
t=l 

^It MATt=MX 
MAT '’ = ‘<X 

CALL 7CT1 (Ml , KUT, NX, 

1 MX,HY, MU, MS, MATI.MAT? ,HAT3,MATt,,MAT'j,MAT6» 

call 7CTI(M?,NLT,NUT, 

1MX,hy,mij,mg,MATI,MAT?,mAT3,MAT4,MAT5*MAT6I 

?1J CCNTINU' 

no ’I*. J^i,Nx 

M1(Y/TC<(I,7) ,J»= HtYZTOKT r,ll , Jl ♦Ml(VZT0K(t,2),JI 

714 CCNTINUI" 

00 71 T 1^1, NUT 

W?(Y7Tn<n,?l, J»= F(VZTO«(I, n, j) ♦«?( YZT0K(I,21 ,JI 

71<^ CONTtNUr 

1 = I ♦ 1 

IF ("Ty*'T<^M ,E0. ?» so TO 750 
no AOO J=l,NY7T0K 
no -Hn L = i,?o 

IF <Y7T)«(J,?> .EO, ITHINUtDI 60 TO 800 

«0I CONTTNU* 

WRIT- (.T.AD^l Y7T0<(J,?» 

“1G4 FCPHAT </irx,»60, INPUT MUST 8E SAVFO FOR FEF09ACK*/* 

DO AO? t = 1 .70 

IF ( I THI NU(?1 -L) . FO, 0 > GO TO 80? 

IF ( YZTO K( J, ? » , GT . I T MINU (71 -L» > GC TO 80T 
I THT NU (2?-L ) =! THINU < 21-L I 
TO? CCNTINL' 

(103 ITHINU(??-L» =V7TnK( J,? ) 

'lOO rOMTINU-. 


01/09/76 


S'" TUP 

SETUP 

SFTOP 

SETUP 

3FTU° 

SETUP 

5 F.TUP 

SETUP 

SETUP 

5 ETUP 

Sf TtJP 

SETUP 

S £TUP 

SETUP 

SETUP 

SETUP 

SFTUP 

SETUP 

SETUP 

SETUP 

SFTUP 

SETUP 

SETUP 

SETUP 

S ETUP 

SETUP 

SFTUP 

SETUP 

SETUP 

SETUP 

SETUP 

SETUP 

SETUP 

SETUP 

S ETUP 

SETUP 

SET'JP 

SETUP 

SETUP 

SETUP 

SETtJP 

SETUP 

3 ETUP 

SETUP 

SETUP 

SETUP 

SETUP 

SETUP 

SETUP 

SETUP 

SETUP 

SETUP 

SETUP 

SETUP 

SETUP 

SETUP 

SETUP 


14.14.0A . 


401 

w :2 

40S 

404 

409 
4.6 
407 
4 08 
419 

410 

411 
4 1? 

4 13 

414 

415 

416 

417 
41ft 
‘♦IR 
‘.70 
4?1 
4?? 
4?3 
m ?4 
4?5 
476 
4?7 
4?8 
4?9 
4 30 
431 
4 5? 
433 
4 ’4 
4 »5 
4 36 
4 17 
438 
4 39 

440 

441 
44? 
4 4 3 
444 
4 u 5 
4 46 

447 

448 
4^9 
4‘"0 
4E I 
^ ? 
453 
4="4 
4 55 
4«"6 
4?7 
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'■IM't-.MI ri > T'lP 


7 T/ 7 U 


npT = i 


fTN U, 7*75060 


0170 q/ 7 f' 


MftT I -Hn 
mat '•-MU 

Tf (K .‘, K ^,0 TT 71 1 
CALL { <1 ,W1 , NL)T,Nif . 

tMy|HY,HU,MS»‘lATl,MAT?,MAT1»MATLfMflT5»>*AT6l 
CALL HAK' ( K? , W? .NUT.NUT , 
tM)t,MVtMU*Mj.MAT 1 ,MAT2»^ATJf^^AT4♦^'AT5*HAT61 
IF (NY 71 DK .50. 1 » GO TO Tl? 

« tP 

,0 T ) 71 - 

Vn *M L MfiK*'' (K WV , NUT«NY» 

lHX,'^Y,MU,Mrj,MATl,MAT2»MaT^.MATU,MAT=i.MAT6> 
CALL HAK“ (K M, W?,NUT ,NUT , 

I MV, MY, MU. MCi matl,hAT?*MAT^»MAT*.»HAT5,MAT6( 
IF (NY7TOK ,C,T. ?i WRIT?: 

??? format (/*0NLY ? LOOPS ALLOWrC*! 

?37 on 7 VT L = 1,NUT 
PC 7TT J-l,NtlT 
TF (K?(L,J) .NF. O.OI go TO 
IF (K^(L,J^ .NF. 0.0) GO TO 71** 

7TT nCNT fNlir 

r,o TP 
ML NK ' : 1 

GP VC 770 

7 3P IF (I .LF. NY 7 too GO TO 711 
DC .Me J=ltNUT 
nn 7T7 L = 1.N'JT 
H?<(,L1=-M2U*L» 

7T7 CDNT INip- 

w?(j. n = i.0*H?(JtJ) 

71r, CC'lMNir 

M AT 1 =H X 

MA T '•-M T 

call INV» ( N? . W3, NUT . 1 . 

1 MX, my, MU , MS . MAT 1 .MAT 7* MAT3.MATL ,MAT5 .MATS) 
KA T 1 =MU 
MAT 2 -Mij 
MA TT =MY 
M AT L -M Y 

call may;; (0. mi.nuT, nut. 

I HY.MV, YU.MS. HATl,HAT2.MATJ,MATL,MAT5,MAT6) 
mat 1 -MY 
MAT?sM X 

call mult (W1,H1,R?.NUT,NUT,NK , 

IMV.MY. MU,MS,MATt»MAt?,MAT1. HAT«*fMAT5»MAT6) 
MATl =mL’ 

PALL MAY- (< t . W2.NUT .NY ♦ 

1 hY.MY.MU.MS.MA Tl,MAr7,MAT3»MATL,MAT5. HAT6) 

7?n CCNTINU" 

IF ( niGi tl .ne . 1 » r,n to 6 
no AIT It I , NU 
no T7 J- t.NUC 
K?(i ,j)-n,a 
KL ( It J)= 0.0 
P37 CONTINUE 
F CCNTTNUr 

IF (fULT'^T .NF, M GO TO 72 7 


S FTI|0 

LEO 

SETUP 

L 59 

SETUP 

LFO 

3F TU« 

LEI 

SETUD 

L€? 

SETUP 

LE 3 

SETUP 

L F<4 

SETUP 

L 6 P 

3 ETLIP 

LFb 

SETUP 

LF 7 

> ETUP 

<*f A 

3 ETUP 

LCn 

SETUP 

L70 

3ETIJP 

U 71 

SETUP 

l 7 ? 

SETUP 

L 73 

SETUP 

L ?U 

SETUP 

L 7 S 

3 ETUP 

476 

SETUP 

•♦77 

SETUP 


5 FTUP 

4 ?9 

SETUP 

4M0 

SETUP 

4 a 1 

SETUP 

4 a? 

S' TUP 

4 “3 

SETUP 

4^4 

S‘ TUP 

4 'VC 

S ETUP 

4 

SETUP 


SETUP 


> 'TUP 


SETUP 

493 

SETUP 

451 

S E TUP 

49? 

S ETUP 

4 CI 

SETUP 

4<^4 

SETUP 

m 95 

S ETUP 

456 

SETUP 

497 

SETUP 

4 

> FTUP 

499 

SETUP 

5 no 

5 ETUP 

E 01 

SETUP 

5 C 2 

SETUP 

501 

SETUP 

5 C 4 

SETUP 

505 

; ETUP 

505 

SETUP 

507 

3FTUP 

50 ft 

; ETUP 

509 

SETUP 

510 

S'TUP 

5 11 

S " TUP 

517 

S«"TUP 

511 

SETUP 

514 
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T] Mf 7^/?^ 0P'-\ 


FTN u,?*75QeO 0l/0<?/7ft li-.m.nw. 



IF (^YSTfH .NE. 'SO TO 7?7 

S£TU« 

SIS 


r 

SETIJO 

S16 


' FOP CLCSFD LOOP ANftUYSlS, INrCFPORATE PEEDPACK MATRX,K1 

SETUP 

5 17 


C ANO F-enFORWAPC hatrix,o 

SETUP 

5 13 


c 

S ET1)» 

519 


HAT 1 :HX 

SETUP 

5?0 

•3;^n 

hat^-mu 

SETUP 

521 


HAT <-HU 

SETUP 

5?? 


MAT^^MV 

SETLiP 

5?3 


CALL HULT n »K 1 , Wl, NX, NUf NX* 

SETUP 

5?l* 


lHX,HV,MU.HS,HATl,HAT?,HaT3,HATi,,NAT5,»-Ar6» 

SETUP 

525 


HAT?=HX 

SETUP 

5?6 


MATTOX 

SETUP 

527 


CALL Ann tl .0*a, l.C ♦H1,W?,NX»NX, 

SETUP 

5?ft 


IHX.MY ,HU »HS ,HATt ,MAT2 iMATS ,MATU,HAT5,MAT6» 

5 ETUP 

529 


CALL HAXC- CA,W2,NX,NX, 

SETUP 

530 

•■ ^0 

1HX,mu,mv,HS,MATI.»<ATP,MAT3,HAT4,HAT5,MAT6» 

SETUP 

5 31 


MAT ? = HU 

; ETUP 

532 


MAT T = HU 

SETUP 

533 


MAT M^HU 

SETUP 

531* 


CALL HULT (0 ,0, HI .NX ,NU ,NU, 

SETUP 

535 


IMX, HY, HU, MS, MAT1.MAT2, MAT7,MATA,HAT5,MAT6I 

SETUP 

536 


H A T X 

S ETUP 

537 


HA Tt, =HX 

SET UP 

5 38 


CALL HAK*^ (fl.Hl.NX.NU, 

5 ETUP 

539 


IHX,HU,HV ,HS,H ATI .HAT 2.HAT3, HATL,MAT5,MAT6I 

SETUP 

51*0 


HATl -HY 

SETUP 

541 


MAT ?sHU 

SETUP 

5L2 


HATT=ml 

SETUP 

5^3 


CALL HULT (f , XI , HI, NV, NU. NX. 

SETUP 

5AA 


tMX. M Y.HU.MS, mat 1 .MATP.HAT.T, MATI«,MAT5.MAT6I 

SETUP 

545 


hat ■> -MX 

SETUP 

546 


HAT ^ -H X 

SETUP 

547 


CALL ADO ( l.O iH.l.T.Nl .H?,NY,NX, 

S£ TUP 

548 


1HX,HY ,M|J , MS. HATl .MAT?, MATS, MATA. HA T5 ,MAT6> 

SETUP 

549 


CALL HAKE <H,H2,NY,NX, 

SETUP 

5-3 0 


t MX, HY, ^U,MS,HAT1,MAT^,HAT3,MAT^,HAT5,H4T6] 

SETUP 

>51 


HAT '»-HU 

SETUP 

552 


HA T T = HU 

SETUP 

553 


MAT 4= MU 

SETUP 

5 5 4 


call HULT {F,D,Hl,NY,NU.NU, 

SETUP 

5 35 

rc u 

1 MX, my, «u, MS, HAT1.MAT7.MAT3,HAT1,.MAT5.MAT6> 

SETUP 

556 


HAT X 

SETUP 

5-: 7 


MAT4 -HX 

SETUP 

556 


call HAKr’ (F,Hl,KY, NU, 

5 ETUP 

559 


tHX,MY,HU.HS,HATl .MAT? .HAT 3.M ATI*. MATE-. MATS) 

SETUP 

560 

:(Q 

5;ysT*m=i 

SETUP 

5 61 


7? 7 nONTINU*^ 

S ETU» 

562 


IF <*?rAO, EO. i*. AND. SYSTEM .£Q .31 CO TO 82« 

SETUP 

563 


IF (MIXED. N-.l» r,0 TO 7?l 

SETUP 

564 


IF ( NOLOCK, EG. 0) GO TO 5?0 

SETUP 

565 

■* f r, 

n 

SETUP 

566 


L ThiN TH^ INPUT VECTOR 1 M I XF 0 LCADIKG OPTION) 

SETUP 

567 


C 

SETUP 

568 


no if\i* 1 = 1. 10 

5 ETUP 

569 


00 321 J=t,NX 

SETUP 

570 

71 

P IJ, I ) = n ( J, ITHINU (I ) ) 

SETUP 

3 71 
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HM’cou TI ' TUP 


71/7*. OPTS! 


f Tn ... ?♦ 7'i-lbf 


Ot /•j9/7*^ 


m. . o« 


*■ 7'. 


'•‘'C 


■UO 




f 


f 10 


615 


r ?*J 


I'»l CONTINUE 

nc T?1 J=1»NY 

F ( j, n -F (j« iTHiNuan 

121 nCNTiNU-' 

IF f'.YIT t M , £C. 1 . OP. 

r,n TO 10 


MULTpT »NE. 31 GO TO 1!?? 


1?? 10 J=ltNX 

Ki ( I , ji = *<i( ithinu m * J1 
KMT,J»=t<HTTHlNUa) ♦ J T 

^25 CCNTINUf 

00 1?6 J = 1 »f4UT 
0 U ,! » = n (J ,T THINU (I » > 

.12 6 rCNTlNUF 

on 127 J=1»NUT 
c ( ! , ji = n< iTHTNL ( n» J) 

32? CCNTINIJE , 

30*; IF (rTMiNu<r«>u .eg. oi r.o to ?o 

30^ rCMTINU^- 

.^20 IF ( I ,LT .NUTI NU-I 

*TF (i^r/Jo.EO. 4. OR.HITZD.EQ.l.OP.PEAO.EO.Sl GO TC 729 
GC TO 5?0 
72 c CO^J T INU*^ 


C 

r 

r 


THIN the output vector (HIVEO LOACING CPTIONt 


no "'J! T = l.30 
no 0? J=l.NXT 
H n . H =H ITTHINV IT » »J 1 
i',2 CONTINUE 

no ‘33 J = 1.NUT 

F U , Jt =F HTHINV U 1. i> 

;Q 1 CONT INUf^ 

IF ilTHTNY(T^l) .EQ. 01 GO TO E2l 
•^01 CONTINUE 
21 IF (I.LT.NY) NV=I 

If IIMIX.NE.U GO TO 5?0 
IMTXss? 

GO TO 4F5 
«^23 MflTl=HX 

MAT3-HX 


MAT4-H X 

CALL hake (Wl »A ,NXtNK » 

1MY,MY,HU. HATl.MAT?f MAT3tMAT4*MAT5 »HAT6I 

IF (MlYEO.EO.ll 

IF ( IPT. LT.1 ) GO TO 200 

FORHAT 11 HI , I OY ,• Thf final REDUCED SYSTEM IS*//1 
CALL SPIT lA»P»C*M»G*Ff Kl#K2*K3*K4tO* 

lHy.MY,MU,MS,HATt,HAT7,MAT3.HAT«*,MAT5,MAT6l 


^OP CONTINUE" 


> ETlJD 

57? 

s*: TUP 

573 

SETUP 

5 74 

SE TUP 

•5 75 

» FTUP 

5 76 

S ETU° 

577 

SETUP 

57B 

5 ETU° 

5 70 

S £ TUP 

5R0 

SETUP 

581 

5 ETUP 

58? 

Sr TUP 

583 

SETUP 

5 84 

SETUP 

5ft5 

SETUP 

5 86 

SETUP 

5 67 

SETUP 

5 88 

i PTUP 

E89 

SETUP 

590 

5 ■ TIJP 

5 91 

5 FTUP 

59? 

SETUP 

593 

S ETUP 

5^4 

S ETUP 

E°5 

5 ETUP 

556 

SETUP 


SETUP 

598 

; ETUP 

599 

SETUP 

630 

SETUP 

€01 

S lTUP 

6G? 

SETUP 

603 

SETUP 

6C4 

SE TUP 

605 

S ETtjp 

616 

S'TUP 

507 

SETUP 

608 

SETUP 

609 

SETUP 

610 

SETUP 

611 

SETUP 

6 12 

SETUP 

613 

SETUP 

614 

SETUP 

615 

5 ETUP 

6 16 

SETUP 

6 17 

SETUP 

618 

S FTUP 

619 

SETUP 

620 

SETUP 

621 

SETUP 

627 

SETUP 

b?3 

S‘^TUP 

6 24 
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O'J 1 T ^ SOJT CPT = 1 


FTN ?♦ 


01/09/7H 1 C, 19. no. 


1 0 






,^0 


■^5 




rn 


*j5 


SU^9UUTI MF '^PtT ( ft,n , c, H, r,, Ff Kl, K?» KS.K**, n, 

THIS SUPPnuTIf<F POINTS ALL ^ATPICES ACCOPOINC TO THE 
PflRAf'^TFP'^, SYSTEM ANC CUTPLT* LSING SU8R0UTlNt SPIT! 

CC^*<CN/rONn/PEAO,SYSTEM,OUTPLT,NX,NY,NU,NXC|NUC|Nl,N2,ClOnL, 

1 CCNTilQ, NUf^ PS, FPPS.TPE SPt MODEL ,N?CALE tSA V,CHA T «NK2, 1 FL AG, 

?IGO .FOPM , I PT .P E ADT.MIX En ,MULTfiT ,SCAPLT ,70M,K CUNT 
INI IGF P PEA n, SVSTFM, OU T P UT» FOR** ,CON TUR , S A V , CM A T ,REAO Y, FPPS.T RESP 
INTEG^'R 1IGlTLtSCAPUT,7CM 

OTM-NSTON A ,MX ) , B (MX ,MU» ,C CM*, PX»,M (MY, MX 1 , G ( MY , M XI , F ( MV, MU1 , 
IKl (MU, MX 1 ,K2 ( MU, HXI , «J (HU,MX1 ,KPCMU,MX) ,0(MU,MUI 
Rc&L <1,K2,KT,K(, 
rOMMQN/SUeWRI T/ rSUTNAH 
IF( TSUnNAM.r.F, 21 WRITE(T,99C1 
093 FORM A T (IX , *SP I r •> 
mat l=MX 
HAT2 =mx 
NRTTE I3,i:» 

in ccpMAT (// lOX.^TH'" A MATRIX IS*/> 
call SPIU (A, NX, NX , 

1HX,MY,MU,MS*MATI,MAT?, MAT3,mATM, MAT5»HATG) 

WPIT - r* , 111 

11 FOFMAT (// 10X,»THF R MATRIX IS*/I 
MAT ^cMiJ 

call SFTTl (9, NX, Nil, 

1MX,hy,mu,MS,MAT1 ,MAT 2,MAT3,MATA,MAT5,HAT6I 
MAT?=MX 

IF ( CMAT . EO, 01 GO TO 21 
WRITE (Y,20l 

^y FORMAT (//nX,*THf G MATRIX tS*/» 
call SpITI <r,NX,NX, 

I MX ,MV ,MU,MS,MATl ,MAT2, MA T3.HATC ,MAT5*MATGI 

21 CONTINU' 

GC TO <Ft;,G0,G0l .SYSTEM 
bO WRIT" (1,171 

1? FORMAT (// 10X,*THF <1 MATRIX IS*/) 

MATl^MU 

CALL SPITI (Ml ,NU,NX, 

1MX,my,MI),MS»9ATI,MAT?,MAT3»mATA,HAT5,MAT6) 

IF ( NK2, ZO. 0 ) GO TO 62 
MRI TF (3,13) 

13 format {// 1"'X,*TMZ K2 MATPIX IS*/) 

CALL SPITI (<2,NU,NX, 

lHX,MV,MU,MS»MATl,MAT?,MAT3,MATt»,HAT5,HAT6) 

6? CONTINU" 

IF f N'».F0,5) go TO 64 
WRIT' n,l4l 

14 FOOMAT (// inX,*THZ K3 MATRIX IS*/) 
call SPITI (<X,NU,MX , 

1MX,my,mu,HS,HAT1,MAT?,MAT3,mATA,HAT5,MAT6) 

IF { NK7, RQ, 0 I GO TO 64 
WRIT (3,15) 

19 FORMAT (// 13X.*THF K4 MATRIX IS*/) 

CALL SPITI (K4,NU,NX, 

lMX,i-Y,MtJ,HS.MA (1,MAT2, HA T 3, MAT A , MATS .MAT 61 


SPIT 

7 

SPIT 

3 

SPIT 

u 

SPIT 


SPIT 

6 

SPIT 

7 

SPIT 

9 

SPIT 

9 

SPI T 

10 

SPIT 

1 1 

SPIT 

17 

SPIT 

13 

SPIT 

14 

SPIT 

15 

SPIT 

16 

SPIT 

17 

SPI T 

IB 

SPIT 

19 

SPIT 

20 

SPIT 

21 

SPIT 

72 

SPIT 

23 

SPIT 

?A 

SPIT 

25 

SPIT 

26 

SPIT 

27 

SPIT 

2B 

SPIT 

29 

SPIT 

10 

SPIT 

?1 

SPIT 

12 

SPIT 

33 

SPIT 

34 

SPIT 

35 

SPI T 

36 

SPIT 

37 

SPIT 

38 

SPIT 

19 

SPIT 

40 

SPIT 

Ml 

SPIT 

42 

SPIT 

43 

SPIT 

44 

SPIT 

45 

SPIT 

46 

SPIT 

47 

SPIT 

48 

SPIT 

49 

SPIT 

50 

SPIT 

El 

SPIT 

52 

SPIT 

El 

SPIT 

54 

SPIT 

E*> 

SPIT 

56 

SPIT 

57 

SPIT 

58 
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l'*' ''TUT I h' 

son ?w7u cpi=i 

FTN •...?♦ 7506: 

01709/76 

1 15, 


b‘i CON tin Ur: 


SPI T 



ir ( Kn- "'.'■ 0 , 1 ) r.o ro 50 


SPIT 

'^0 

* 0 

no TO ?o'j 


SPIT 

' 1 


‘*>r wPlTf (1,10} 


SPIT 

6? 


If: FO^rMAT (// tnX,*TH£ H HAT«T* IS*/1 


SPIT 

F 1 


17 F(y?MAT (// inx,*TH5 r, HATRT>f 15*/ 1 


SPIT 

fU 


lA FTF-f-^T {//nx,*TNr F MAT9TV T5*/l 


SPIT 

65 

► [ 

IS rn.^MAT (//10K«*TMF D MATRIX I5*/» 


SPIT 

F6 


Hi r 1 -MY 


SPIT 

* 7 


CALL SFITl (H,NY,NX, 


SPIT 

60 


1HX,*^Y,mu,mS,HATI,MAT2»HAT3,HAT4,HAT‘^,MAT6I 


SPIT 

69 


GC TO M 00»5€. 57» 50} .OUTPUT 


SPIT 

70 


5^. WRIT.- n,l7l 


SPIT 

71 


call SPITl in.KY.NX. 


SPIT 

72 


lHX,**Y,HU,MS,MATl,HAT?,HAT3.MATt-,HflT5,MATM 


SPIT 

7 3 


no TO 10 0 


5 PIT 

74 


■* writ: (1,10) 


SPI T 

75 

V: 

HAT? -MU 


SPIT 

76 


CALL SPITl (F.NY.NU. 


SPIT 

77 


lMX,My,HU.M3,HATl,HAT?,H4T3.MAT(«,HAT5.HAT6| 


SPIT 

70 


no TO too 


SPIT 

79 


S>‘ WRIT' (T.17) 


SPIT 

0 


CALL SPITl (G .NY.NX, 


SPIT 

01 


lMX,MV,HU.MS,HATl.MAT?»HAT3tMAT<.,MAT5 .HAT6> 


SPI T 

0? 


WRI Tr n , 10 } 


SPI T 

03 


MAT ’-HU 


SPIT 

04 


CALL SPTTl (F,NY,NU, 


SPIT 

r5 


1 MX , my , MU 1 HS, MA T1 . MA T?. HA T3.MA T4.MAT5 ,MAT6> 


SPIT 

06 


10[) no T J (?Q0, 110,?00» »SY$T-M 


SPIT 

r>7 


no WRIT- (1,1?) 


SPIT 

?0 


M AT 1- MU 


SPIT 

09 


MAT ? = My 


SPIT 

90 

Qn 

call SFI T1 (K1 ,NU,NX , 


S PIT 



lMX,MV,MU,HStHATl,HAT?, MAT 3, MA TC, ♦ M A TS , M A T6) 


S»I T 



IF ( NK?, "0.01 GO TO 66 


SPIT 

H 1 


HPTT- (1,13) 


SPIT 

C4 


CALL SPITl (K?,HU,MX, 


SPI T 

■35 

)■ 

1HX,MY,MU,MS,MAT1,MAT?,mAT3,MAH,,HAT5.MAT6I 


SPIT 

96 


bh CONTTNUr 


SPIT 

9 7 


WRIT - (.1, 19 ) 


SPI T 

9 0 


HAT ?=MU 


SPIT 

- Q 


call SPITl (n.NU.NU, 


SPIT 

1 ' r 


1 MX, MY, MU, MS, M ATI, MAT 2, MAT 3, MAT A, HAT 5, MAT 6) 


SPIT 

101 


fOO CONTINUE 


SPI T 

102 


RFTUON 


SPIT 

103 


r KP 


SPIT 

1 H4 
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7S/7U 


CPTsl 


FTH u. ?♦ 7^060 


oi/o*»/76 i'4,i*;.4p 


5UPP0UTTNE SPTTl 

t MX, my. mu, MS.HftU, MUT?, HAT^.HAT:4,HAT«MMflTP>) 
OI1-NUON A(HATt,HaT?) 

CCMMfN /■^UBWPT T / ISU'IMAH 
IF ( T"'tl INAM.GE^, ?) HP ITE t qnCI 
qqO FCPMAT (! X,*«^PITl* ) 

W«;iT' M ,10 » N ,M 
10 FORMAT (?IlO/» 
no ^ ) 1= 1 ,N 

HPIT^ ca n ,j) , j - 1 ,M» 

?0 CONTINU" 

^0 FORMAT (10E1?.4) 

RFTUPS 
l- K 


SPI Tl 

7 

SPITl 

3 

SPITl 

A 

SPITl 

s 

SPITl 

f. 

SPITl 

7 

5PIT1 

n 

SPI Tl 

9 

SPITl 

ic 

5PITI 

11 

SPI Tl 

1 ? 

SPTTl 

13 

SPITl 

14 

SPITl 

15 
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ilTIfE’ ■ 

rHl**T 7^/7h OPTst FTN' ^.?*7t06C 0l'0<^7’6 

1 1., 15, 



rtin^oijTlNf THIS! 14»RfC»H,F,Wl ♦W?,Hl,PfJOTR,ROOTI ,U,Kl»P*7»V. 

5PTT1 

IN 




SPITI 

17 




SPITl 

16 



TH[<; <;uR9TtJTlNt COHPUTES A TARULATEO TIME MISTQPY P£?F0NSE 

SPITI 

IP 

c; 

r. 

OF 5;y5TEK, iMPUl TO THE SYSTEM IS UNHEP CCNTPOL 

spi ri 

?n 


r 

TMPOur.H A CALL TO SUfTRCUTTKF INPUT (C£LT,T.U) MH p l DELT IS 

SPITI 

?i 


r 

TH- TIME TNCPEMENT, T is the TINE, AND U IS Thp INPUT VECTOR 

SPITI 

?? 


f 

OF oTM'NSinN MX. the RESPONSE IS COMPUTED USING THE STATE 

SPIT 1 

?7 


r 

TRANSITION MATPI*. THE TRANSITION MATRIX IS CCMPUTfD ^Y THE 

SPI Tl 

?U 

1 C 

f 

SHrtTOUTpJ- EAT USING ThE SERIFS EXPANSION TECHNiIOifrO Ten TEPMS 

SPITI 

•ye 


r 

OF THE SEPTES AR- USED. 

SPITI 

26 


r 

CCRkpCTTON made RY G. NORRIS JULY S 73 

SPITI 

27 




SPITI 

2 B 



CCMMCN/CONO/REAO»SYST£M,OUTPUT,NX,Nr,NU, NX C , NU C . N1 , N 2 ♦ C IG I TL ♦ 

SPITI 

29 

t 7 


1CCNTUR,NijmERS, f RES, TR£SP*MOCEL,NSCAlE*SAV.CMAT ,NK2, IFLAG, 

SPITt 

TO 



? IGC , FORM , IPT ,REA03,MIXpC,MULTRT,SCAPLT,ZOM*KCIM 

SPITI 

71 



CCMMCN/ACONO/ rPLT,FINALT,IFREC,FEREQ»OELERQ,GAlNl,GAlN?,M 

SPITI 

3? 



IN TFGE P PF A 0, S YSTEH , OUTPUT, FORM ,C CNTUR ,SA V » CH A T ,RF AO 3 , FRPS,TRESP 

S PIT 1 

7T 



INTEGER niGI TL tSC A plT ,70H 

SPITI 


■•0 


RFAL <\ , IFRrO, M 

S PITl 




cohmon/larel /inpt,oiitpt,title 

SPITI 

16 



o^AL INPT(IO), O'JTPT t20»«TITUE(ei 

SPI T! 




K^^'NSION A (MX.MX),R IMX,MU» *C IHX,MX) , M (M Y , M X » , F (h Y , M U J , 

SPITt 

T6 



1 1 ( HX ,HX » ,M? ( MX , MX) , W3 ( MX ,MX ) , FOOTR ( MX » , ROOTI ( MX ) , U (MX 1 , 

SPIT 1 

?P 

?'■ 


^K1 IMLtMX I ,0(MU,MUT«Z (MX),V(MX) 

SPITI 



c 

OImcnSION A(lF,lr», 0(1S,IG», C(15,15», H(15,1I1 

SPITI 

,1 


r 

p { t f , 1 n ) ,K 1 ( 1 0 ,ir>t , D(io»io>t 7(i5>, vnv). u(i5> 

SPI T 1 



f: 

CIMENSION Hl(ir,1^>», W?(1E,IE», 

SPITt 

*43 


f 

rTM«^NSrON ROOTRllS), ROOTKl?) 

SPIT t 

^4 

M. 

c 

CTMENSION K?(10,15», K3(1P,15)* KAUOtlS) 

SPITI 




REAL PST 

SPITI 

*46 



common /SURWR IT / rSUBKAM 

SPI Tt 




OATA PST/IOHTIMF / 

SPITI 

>48 



IFH SUONAM,GF.?> M'S I T E < 3 , R9(5 1 

S PI Tl 

-,9 



oi\) rc-“ - AT (t X ,*thi ST* > 

SPITt 

EO 



IP <ni Cl TL.NF, 0 ) GO TO 6 0 

SPI Tt 

tl 



IF ( mulTPT.GT. D> GO TO 6G 

SPITI 

72 



call -at (DELT,A,M1,H?,H3,C,NX, 

SPITt 

53 



1mx,my,mu,MS,MATI,MAT?*HAT3, MATL,MAT5,MAT6J 

spin 

7 4 

-.fl 


H AT 1 = HX 

SPITt 

55 



MAT 2 = MX 

SPI Tl 

*=6 



MAT3=MX 

SPITI 

“7 



MAT U=M X 

SPITI 

58 



MA T5-MX 

SPITI 

59 

u‘: 


MATS^mx 

SPITI 

60 



CALL mak^^ (A, Ml, NX, NX, 

SPITI 

tl 



1 MX , my , MU, MS, MATI ,HA r? ,MAT3 ,MA Tl4,HAT5,MA T6» 

5 PIT 1 

62 



MA TU :M1I 

SPI Tl 

6 3 



CALL mult (W?,R,M3,NX,NX,NU, 

SPITt 

64 

-r 


lMX,MY,HU,MS,MATt,HAT?,MAT3,MAT4,MAT5,MAT6» 

SPITt 

f F 



MA T? =MU 

SPI Tl 

66 



M A T r M X 

SPITI 

r7 



CALL MA<F (5,W’,NX,NU, 

SPITt 

68 



lMX,MY,MU,MS,MATt,MAT2,MAT3,MATL,MAT5,MPT6l 

SPITI 

69 

r r. 


f,0 CCNTTNU'^ 

SPITI 

70 



OC f400 T- = 1,TRESP 

SPITt 

71 



T = ] . S 

SPITI 

7R 
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T*u: 

T ’3/7U OPT = l FTM ?♦ 75060 

0!/09/7n 

1 15. 



00 1 1=1 , NX 

SPIT! 

73 



RooTt ( n ro,n 

SPITl 

74 

t 0 


ROOT T( n =0, 0 

SPITl 

75 



7(11=1.0 

SPITl 

76 



»/ ( n -1, 0 

SPITl 

77 



«1 ( I .1 1 = 0.0 

SPITl 

76 



U ( I 1 =0, 0 

SPIT 1 

79 

y 5 

i 

OONT INtiP 

SPI Tl 

«0 



NXir = NXC*l 

S»ITl 

ftl 



Nuu = sijr» 1 

SPITl 

8? 



1F( F 'RM.5T, .J 1 NRI TF< 7) PST.T I T t F t S YSTEH .MODE L 1 0 IG IT L , SCAPlT 

SPITl 

83 



NYU= KY fflU 

SPITl 

64 

73 


IF ( mijlTRT , FO , n NYtJ=NY»NUC 

SPITl 

65 



IF{F^:om, r.T.OI H9ITE17) KYU, (CU1FT< T>»I«l»NV) , (INPT UJ ,J*1 f NUI 

SPITl 

66 



HCI’f n.lll (OUIP T <n , I = l ,NV >, (INP TCJ»,J=l,KUJ 

SPITl 

87 


1 1 

FOR>^fiT (//• TIH' *(13 (?X, A1CU//J 

SPITl 

88 



IF (6ULT»T,NE,n f.3 TO 9« 

SPITl 

89 

7*" 


CCNT INUF 

SPITl 

90 



CALL INPiJTV(OELT.TtU, 

SPITl 

91 



1MX,*1Y,MU, WS. NA T1 ,HftT?»HftT3 .Mft U,HAT5 tHAT6> 

SPITl 

92 



no Tj T-M,NY 

SPITl 

93 



RccT n n =0.0 

SPITl 

94 

HD 


nc j=i.NY 

SPITl 

95 



90.1 T n n = wonTT (i)tM(i, j( •KncTf( j» 

SPITl 

56 


^0 

CCN T INL“' 

SPITl 

97 



no U T=l ,NY 

SPITl 

98 



no M J=1,NIJ 

SPITl 

59 



RCoTi(n=pon^Mn*F(T,j»*ufji 

SPITl 

too 


n 

GONT INU"" 

SPITl 

101 



rF(POR*i. EQ.?> GO TO 6 

SPI Tl 

ID2 



RPtT- M.lOl T, (POOTT (T > ,r=l.NV», CU(J».J = l.Ntn 

SPITl 

IC3 



IF (rcPM, FQ. 0 I GO TO 7 

SPITl 

1G4 

gr> 

-3 

WPIT;(’(T,<POOTItlJ,T=l,NY>,(UU1,J = l,NUI 

SPITl 

105 


7 

CCNT INUF 

SPITl 

}06 


10 

TCP MAT (tlFt?,l) 

SPITl 

107 



OC T = l,NX 

SPITl 

IC8 



HI (I ,1 ) = 1,0 

SPITl 

1 09 



DO 40 J= 1 ,NX 

3 PITl 

110 



HHI,t> = Hl(I,lM-A(I.J> *ROOTR( Jl 

SPITl 

111 


<♦0 

C ON T I N U - 

SPITl 

112 



QC ul 1= 1 , NX 

SPITl 

113 



DO 41 J=l,NU 

SPITl 

114 

lOG 


Hl(T,l» = Hl(I,lI+P(I,il*UU> 

SPITl 

115 


<♦1 

CCNT INUF 

SPITl 

116 



DO 1=1, NX 

SPITl 

117 



PCCT R ( II =Wl C 1,1 ) 

SPITl 

1 18 


-*? 

CONTINU‘D 

SPITl 

119 

1.' V 


LT 

SPITl 

1^0 



IF (T. LE , FINAL! I GO TO 20 

SPITl 

121 



GO TO 96 

SPITl 

122 


q« 

KCT= 1 

SPITl 

123 



ICK= C 

SPITl 

124 

1 1: 

1 ^o 

CCNT INU^ 

SPITl 

125 



IF ( ICK. FO.l 1 GO TO 70 

SPITl 

126 



CALL INPUTY (OFLT,T,U, 

SPITl 

127 



IS X, MY, HJ , MS, MATl, HA T^ , MAT.X , MA T4 ,MAT5 ,HflT5 » 

SPITl 

128 



00 1=1, NXC 

SPITl 

129 
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• ipy nj Tl NF 

r n-r 

7V74 nPT=t FTN 

017 047 76 

1 1 S. 

U-' 


V (T M9C0TP( n 

SPITI 

1 TO 


7b 

CfV4T INIJ^ 

3P! Tl 

lil 



f'C "X 1= 1 ,NU 

Si^ITl 

1 3? 



7 » - T , 

SPITI 

1 



nr 7? jM »Ni) 

G PI Tl 

1 3U 

\^0 


xx = v<»n ( I »j )• u fj > 

SP IT 1 

135 


7 ? 

CON T INU: 

SPI Tl 

1 ’6 



7 ( T> 7 

'=^‘>IT1 

1 T7 


M 

CONT TNUf* 

SPITl 

1 3« 



nn 7 5 1 = 1 , NM 

SPITI 

1 T4 

1?S 


7 K= 0 . 

SPITl 

1 to 



nc 

SPITI 

1 tl 



XK= jnr * K1 (I, 1) *R OCTO ( jj 

SPI Tl 

It? 


7=4 

ncNT TNur 

SPITI 

1 1,3 



7 (T ) -7 <T ) *xx 

SPI Tl 

1 .*4 

1 ^0 

7 3 

CO NT TNU^ 

SPIT 1 

It? 



T 0 ^ 1 

SPI Tl 

1 16 


70 

CCNT iNtJf 

SPITI 

1^7 



f*0 P 0 1= 1 ,NV 

>PIT 1 

1 16 



XXt T , 

SPITI 

1 

1 


no PI Ji: 1 . NKC 

SPITI 

1*'0 



XX=XX»M( I ,J) *I?C0T9< J) 

SPITI 

1 El 



n ON T IMJr' 

SPITI 




Poor I ( n =xx 

SPI T 1 

IE3 


«r 

CCNT INC^ 

SPI Tl 

1 :*4 

1 ^0 


nn p ? I = i ,NV 

SPITI 
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XX : n . 

SPI n 

1 ‘=6 



10 P ^ J= 1 ,Nl)C 

S'^ITl 

lb7 
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rCNTtlP »nUHi:P0* FRPStTOESFfHOnFL , N? C 4L E t S A V* C M4 T , N< ? t I FL AG . 

:»TGrC' ,f'CPH,IfaT,i5FftO.T, HIXFn,*"ULTRT,SCAPtT,J'OH» hOUNT 
IKT>-'r,-(? RFAn»SY5TFM,OUTPUTtFCRH,CCNTUR«SAV»CMAT*FPft0>1t FRPSt YRFS 
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71/7h 


CPT=l 


FTN 


IF . FQ. ?) Cn TO no 

Gfl INU ) = r,AlM(L) •( 1. f ?.*PAPAM(I , 3i *X Nf XN* * 2 I /X N** '» 
CAlN(U=r,AlN (L»»(l. ♦PENCM(L,n*0ff0M(L.2l) 

1/ T) 

m ccntinle 

RETURN 

FNO 


01 /T9/7H 

1 -i. 1*^ 

S«7 

? ’f 

5 WZ 

231 

5M7 

??2 

SK? 

233 

S W7 

234 

S WZ 

235 

SMZ 

?36 
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f UNCTION TANG ’I/?** CPT*l 


FTN ‘..?*76>06f’ 


FUNCTION TANG (A) 
nCHn-X A,C 
fQUIVAlFNCP 
OT«‘NGtON lT<?I 
^ C = A 

phI = ATAN> (n< 21 3 

IF ( , r.T, Q, o.ANn. R(i KL T. 0 . p > GO TO in 

TANCrPHl 
GO TO ?0 

to 1'j T AnGsPH! -T iiO . 

?n pftupn 
‘NO 


017 09/ 7E 

lA. 19. 

TANG 

? 

r ANG 

3 

tang 

N 

TANG 

5 

r ANG 

G 

TANG 

7 

r ANG 

0 

r ANG 

9 

TANG 

10 

T ANG 

11 

TANG 

12 

TANG 

1 3 
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SUHPOUTlNr HDISC 7S/7h OPT = l FTN 0l/t9/7*'i 1 4 . 1 P . 



SU 09 OUTINE WDISC < A,n,C,H*G,F ,Kl»K?,K3.K4,0, 

HOI SC 

2 


lHK«My ,MU ,MS*MATt,MAT 2,MAT1,HAT4,HATS,MAT5I 

A ni SC 

T 


C 

HOISC 

w 


C THIS SUPROUTINF W?ITF3 ALL TKPUT MATRICES CN DISC*; ACCCRniNG 

H DISC 

5 


'' rj tmf parakf t^rs, sr: TPM anc ouput, using suproutine moisci 

HOI3C 

6 


r 

HO ISC 

7 


rCMMCN/CONn/REAO» SY stem .output ♦NX ♦NY .Mi, NXC,NUC, Nl, f. ?, CIGITL. 

Hoisr 

6 


1 CCMTIJO.nuMPRG. FRfS, TRESo.MOOFL, NSCALP, SAV, CMA T .NKa.l PL AG. 

HDISC 

9 


?IGO, FORM .IPT.REATT.HTXra.KULTRT ♦SCAPLT.ZOH.KOUKT 

HOI SC 

10 

IC 

I NT eg: p READ, system. OUT put ♦PORN .CON TUP, SAV, CHAT, Rf AO.T, FPP'‘, TP- $P 

HOISC 

11 


INTEGER 0IGITL.SCAPLT,70H 

AOISC 

1? 


niHFNGION A(MX,MX),^(MX,MU»,C fHX.MX ^ . M < M Y , MX » , G ( MY . M X ) ,F {MY, MU!. 

HOI SC 

1 3 


IKl (HU, MX) ♦K?(MU,MX),K3 (HUfHX!,K4 (MU , M X > , D ( MU ♦ M U) 

mice 

14 


RFAL K1,K2,KT,K4 

HOISC 

15 

15 

CCMHGN/SU0MRI T/ IS«J3NAM 

HDISC 

lb 


IF ( rSUONAH, GF.e > WRITt(3,99ni 

A DISC 

1'^ 


990 FORMAT a X, •MOISC*) 

H 01 SC 

16 


MATl-MY 

HOISC 

19 


MAT ?= MX 

H 01 SC 


?G 

CALL WOISCI (A.NX.NX, 

HOISC 

?1 


1 MX, MY, HU. MS, MATl, MAT?, HAT 3. MATA, MAT 5, M AT 6> 

A 01 SC 

?? 


MAT ? = MU 

HOISC 

2 


CALL HCISCl (R,NX,NU. 

HOISC 

24 


IHX,MV,MU,MS. MATl .MAT? ,MAT3,MAT4,MAT5,MAT5! 

HO ISC 

?5 

?5 

MA T?=H X 

A 01 Sf' 

?6 


call HOISCl (C .NX ,NX , 

HOISC 

27 


1 MX, MY, MU. MS, M ATI ,MAT2,MAT3, MAT4f MATS, MAT6! 

AOISC 

?6 


MATl=MU 

HOI sr 

29 


call NOTSCl (K1 ,NU,NXt 

HOISC 

30 

30 

IMX, MY, MU ,MS, HATl.HAT?, M AT3 ♦ M*T4 , M A T5 , M AT6» 

HOISC 

?1 


CALL HDISCi (K2,NU,NX, 

HDISC 

3? 


tMX,HY,MU,HS,MATl,MAT2,HAT3,HAT4,MAT5,MAT6> 

HOISC 

’3 


call wniSCl (XT.NU.NX, 

HOISC 

3 4 


IMX, MV, FU,HS.HAT1,MATZ,MAT3,MAT4,MAT5,MAT6I 

HOISC 

35 

35 

CALL MCISCl (K4,NU,NX, 

HOI SC 

36 


1 MX, -Y, MU, MS,MAT1,MAT?»MAT3, MATA.H AT5.MAT6I 

4 Oise 

37 


M AT 1 = Mv 

HO ISC 

3 6 


call MDISCl (H.MY.NX, 

HOI SC 

39 


1 MX, MY, MU, MS, MATl.MAT?, MAT3,MAT4,MATS,HAT6| 

HOISC 

-0 


call wniSCl tG,NY,NX, 

HOISC 

- 1 


1 MX , MV ,MU,MS,MA Tl ,MA T? ,HAT3, HATA.M ATS, mat SI 

HOISC 

.2 


M AT = MU 

HOISC 

L 3 


CALL MDISCl {F,NY»NU, 

HOISC 

(.4 


1 MX , MV , MU, MS , HATl ,HAT2 , MAT3 ,MA Th , MATS ,MAT6» 

HDISC 

45 

Uh 

MATl-MU 

4 01 <-C 

46 


call MOISCt {0,NL,NU, 

HOISC 

u7 


IMX,mv,hu.HS,MATI ,MAT2, HAT3.MAT4* MAT5,MAT61 

HOISC 

48 


REWIND fl 

H DI '^C 

-9 


PFTURN 

HOISC 

5 0 

b 0 

END 

HOISC 
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7 5/74 


CPT = l 


FTN *. ?*?e.36( 


01/09/7E 1., iq.ti 


5L=5RCUTTNE NnrSCl 

lHX,Hy,HU,M$*MATl ,M^T?♦^'AT3, HflTf.,HATO,»5ftT%> 
OIMTN^ION 4<MflTl,MftT?| 

CCMMCN/SUnWP IT/ TSUftKAM 

5 IF(ISU->NAm,GE . 2^ MPIT£(T,qP0) 

-)q0 FCPHAT ( 1 X .♦ wn I SCI 

DC 10 1= 1 ,N 

HRITF {fl» (A tl, J», J=t, HI 
U CCNTINUE 

10 PTTIJRN 

€Nn 


KOI SCI Z 

lOISCl S 

K 01 SC 1 4 

KOISCl s 

KOISCI 6 

KOISCl 7 

KOISCI A 

4 01 SCI q 

KOISCI in 

KOISCI M 

K 01 sc 1 12 
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MJPPnUTIM: TIT yj/7k CPT*! 


FTN -. ?♦ 7'‘flbC 


ou:^/7e 1^.19.11. 


^0 




Ht’ 




SUnPHUTINE 70T ( fl»0 * C, H » G .P , K I , K? ,K 3 ,K 4 *n , 

CC^'»1CN /COND/PFflOt SYSTEM^nuTPUT, ►JK.NV, NU,N*r,NUC,Nl,N?,ClGrTL« 
iCC^TljP, NtJMF P^, FRPS. TPESP .HOOF L *NSCALF, SAVtC HAT .KK2.I FL AG, 

?I rr ,rOPM ,IPT .PEA0 3.H TX ED.MULTRT ,?CACLT .zoh.kcu^t 
integer CIGI TL.SCAPLT,70H 

INTt^r.rp PEAD,SYSTtH,OUTPUT,FrcK,rCNTUR ,SAV .CHAT.PFAnj, fPPF,TPF3^ 
PEAL Kl , *<?, KT , K<* 

nlMcr^SlON A (HX ,HY) , OfHX ,HU> ,C rfX ,hX ) ,MMY ,MX» , f Cf'V,HX> ,F (H> ,HUI» 
t'<l(HL,MY),K?{Hl,MX),K3(HU,HY»,X4IHU,MX»,0<MU,HUI 

C THIG EURROUTINF InITIALITFS THE SYSTEM MATRICES TC ZERO 

USING 70T1 


COMM0N/SU9NP I T / ISUINAM 

IFI r SUnNAH,r,E.2> HRITEJ3.990> 

990 FCPHAT (1X,*/0T*> 

H AT 1 ^MX 
MAT’ =MX 

CALL 7CT1 {A, MX, MX. 

1MX,MY,MU,MS.MATI,MAT2,MAT3,MATU,MAT5,MAT6> 
call 7CT1 (C.MX.MX, 

1MX,mv,hU,M':.MATI ,MAT?,MAT3, HAT4, MATS . HATH 
M AT I =M Y 

CALL 7CTI (H.MY.HX, 

1mx,HY,'^U,HS,MAT1,HAT2,MAT3,MAT4,MAT‘5,MAT6I 
CALL 7CT1 (G.HY.MX. 

1MX,MY,HU,HS,MAT1.MAT2«MAT3.MAT4,MAT5,MATG) 

HAT7=HU 

CALL 7CT1 (F.MY.MU, 

IMX.MY .HU.MS.MATl .MAT2,MAT3.MAT4,MAT5,HAT6» 
MAT 1=MX 

call ZCTl (9, MX, MU. 

IMX, HY,MU .MS.HATl .HAT ? ,MAT3 . HATi* ♦ MATS. MAT6» 
MATl=MU 

M AT’sMX 

call ZOTl TKl.HU.HX. 

I MX. MY. MU,HS,MAT1,MAT?.HAT3,MATA,MAT5,MAT6> 
CALL ZCTt IK2,HU.MX, 

IMY, My,MU,MS.MATl.MAT2,MAT3,MAT**,HAT5,MAT6l 
CALL 70TI (K3.HU.HX. 

1HX,mv,mU,MS,M ATI ,MAT3,MAT3.MAT4i,HAT5,MIT6I 
call 7CT1 (KM. HU, MX, 

IMX. MY, MU, MS.HATl , MA T? , H A T3 . HA T4 ,M A T5 . MA TE> I 

MA T ? = HU 

call 70TI to, MU, MU. 

I MX ,HY.H) .MS.HATl .HAT? ,MAT3 .MAT4.MATG .MATSI 

Rt TU»N 

END 


7 0T 

? 

70T 

3 

7 0T 

4 

7 'JT 

e 

7 IT 

F 

7UT 

7 

?OT 

f> 

7 or 

9 

70T 

1 0 

' IT 

1 1 

ZOT 

1? 

7JT 

13 

r oT 

14 

70T 

1 = 

/ OT 

1ft 

r or 

1 7 

/ JT 

1 8 

7 OT 

19 

7 OT 

’0 

70T 

21 

7 OT 

22 

7 OT 

23 

7 0T 

’4 

? OT 

?5 

7 OT 

?F 

1 01 

?7 

X OT 

76 

7 OT 

?9 

r OT 


7or 

^l 

ZOT 


70T 

3 3 

7 0T 

34 

70T 

35 

7 OT 

36 

ZOT 

37 

ZOT 

36 

ZOT 

39 

ZOT 

AO 

ZOT 

41 

ZOT 

42 

ZOT 

43 

ZOT 

44 

ZOT 

45 

ZOT 

46 

ZOT 

47 

ZOT 

46 

z or 

49 

70T 

*^n 

ZOT 


Z OT 

"2 
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OPTsl 

FTN ?*>75 0b0 

01/09/7FI 

IM. 19, 


SU^OOUTINf 70TI (A,NfM, 


roTi 

2 


l'1)«,'4Y,MU«>lS.HAri,HAT?,MaT3,HAT4«, MATS *HAT6> 


70T1 

3 


OlMrNSION AMATl,HAT?l 


ron 

4 


cohmon/^ubwpit / isutmah 


roTi 

5 

r 

I F ( I .2) HPITE n» 9^4 0 1 


FOTl 

6 

i 40 

FOPiAT r 1 Y ♦♦70T 1* > 


f on 

7 


TO in I=1,N 


ZOTl 

« 


'10 10 J=1»M 


ZOTl 

9 


A IT ♦ W sfi » C 


r on 

to 

in n 

OCNT INI'* 


ZOTt 

11 


RTTUPN 


ZOTl 

!? 


FNP 


ZOTl 

t? 
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L‘ 

'= Ttj TTKt 

/ rnw 

M/7-+ CPTsrl 

F TN 

/C 3E[ 

01/ 39/7- 

14, ;? 




Sl'^enUTtNE 7rCh ( N, NN, CE » I , J J , K 00 T i? , R C f T t , P OT R t 

ROTI , LI ,DFE, 

2 TOM 

:> 




lMX»MY,Mlj.HS,HflTl,MAT?,HAT.9.MftT<4,H4T5,HflT6) 




2 TOM 

X 


C 






2 TOM 

4 


r 


•^UOROUTINf CONVERTS 7-FLANE TRANSFER 

FUNCTIONS TO 

2T0M 

S 

< 

r. 


W-PLANE TRANSFER FUNCTIONS 




2 TOM 

fi 


r 






2TOM 

7 




niM-NSIOri ROOTRf^^XItROOTKHXItPrTKlMXI.ROTKNXI 



2TOM 

8 




CO^'MOn/''.-) 0HRI T/ ISiMNAH 




2 TOM 

9 




IF( ISUt’NflM, G- , 2 1 WRITE <3»990> 




2 TOM 

10 

10 



FORMAT ( 1 X, »7T0W*I 




Z TOM 

1 1 




L?- J 




r TOM 

1 ’ 




1 




2 TOM 

1 3 




IF ( I ,CT , 1.0® . JJ.GT , 1 1 GO TO 1 




2 TOM 

1 4 




OEt= 1 . r 




2 TOM 

IE 

1*= 



L 1= 0 




2 TOM 

IS 



? 

IF f ATS( (ROOTS <K1 -1 . 1 ♦POOTKIO 1.GT.1Q 

.*♦ ( 

- C 

n r,c TO 10 

Z TOM 

1 7 




L 1=L 1*1 




2 TOM 

18 




OEf = 0FE/2, 




2TOM 

19 




ROOTS (<) =0, 0 




2 TOM 

?n 

?0 



ROOT! (<) =0. 0 




2 TOW 

?1 




K=K^l 




T TOW 

?? 




GO TO 11 




ZTOM 

?3 



10 

IF (ROCTI (K1 ,NE . 0,0> GO TO 12 




2T0M 

?4 




OEE= DEF/' (1, ♦PCCTR (« 1 ) 




2 TOM 

?5 




ROOTR(K)--<l.-ROOTR(Kn/(l.^RC(TR(Kn 




2 TOM 

'6 




K = K* 1 




2T0W 

?7 




GO TO 11 




2 TOM 




12 

A=R00TP(KI**2 




ZTOM 

?9 




RsROOT I( K1 **? 




2TOW 

^0 




G = ( 1 , fPnO TP (X n**2 




2 TOW 

M 




0EE=nee/(G»9i 




2 TOM 

3? 




R00TR(KJ = <A*fl-l.)/(G+BI 




2 TOW 

33 




OOOTR(K^1)=ROOTRK1 




Z TOW 

»4 




RCOTI (Kl= (2, •RCOTIC<M/IG»«> 




ZTOM 

3S 




ROOTKK+n^-ROOTKK) 




2 tom 





K»K ♦2 




2 TOM 

37 



u 

IF (K. LE. NN> GC TO 2 




ZTOM 

3 8 




RETURN 




2 TOW 

39 



i 

0E=0E*CFE 




Z TOM 

4C 

4D 



NSAV=0 




2 TOM 

41 




IF (ARS((ROTP(«) + 1.»+ROTI(KM.LT,JO.**(-6I ) 

GC 

T C 

ifi 

2 TQM 

4? 




IF (ABS ( (POTR (K t-1. 1 ♦ROTI (X) ».GT. 10.**(-6n 

GO 

TO 

14 

2TOM 

43 




OE=OE*?. 




2 TOM 

44 




L2=L241 




2 TQM 

4S 




ROTR (K > = G, 




ZTOM 

4S 




ROTI (K1- 0 , 




2 TOM 

47 




X^K*l 




ZTOM 

48 




GO TO IS 




2 TOM 

49 




:F=CE*2. 




» TOW 

^0 

''n 



OCTR(K»=-1QOO. 




2 TOW 

F 1 




ROTI (<)= 0. 




2 TOW 

? 




KrX* 1 




2 TOW 

3 




NSAV=NSAVf 1 




2 TOW 





GC TO IE 




2 TOM 

IE 



1 4 

IF (ROTI (K1.NE.0.* GO TO 16 




2 TOM 

-E 




0E = nE* U .♦ROTR (K1 i 




2 TOM 

E7 




9OTRIKl=-(l,-R0TR(<l )/ 11 .♦RQTP (X > » 




2 TO M 

‘ 8 


lf-9 





SU«c.5UTINr 7 1 OW 


7l/7t* OPTsl 


FTN »»7506C 


01/09/7O 





K=K M 

7TOH 

F9 


GO TO 1‘ 

^^OH 

1:0 

f 0 

Ir A*P0T9(KI**? 

7TOH 

El 


p==>OTr {< \**z 

MON 

f.2 


r,= ( 1 . ♦P 0 TR( »o i 

7T0H 

G3 


nE=Ot • (GfOl 

7 TOW 



PCTO IK )- u*0-l , J/ Cr.HT) 

7 TOW 

f5 

f 5 

'^oTpiK + i 1 rffOTPna 

7TOW 

66 


POTT fKl- (7,*R0TI <K) » /IGf9) 

1 TON 

€7 


POT 1 IK +1 > = -ROTI IK) 

ZTOW 



K=K+ 7 

1 TON 

69 


15 IF 1 K , L F. . N ) GO TO 15 

7 TON 

70 

70 

LHN= NN-N 

ETON 

71 


OE=nt*l-l,T **LHN 

1 TON 

7? 


11= 1 

1 TON 

7^ 


DO ?0 I=i,N 

ZTON 



IF IPOTP III T .NE .-100 0. ) GO TO 22 

Z TOW 

75 

75 

K = It 

ZTON 

7G 


DO 21 t=K,N 

1 TON 

77 


PCTPILTsPOTRIL +n 

f TOW 

78 


ROT r iL >= 90TI a*n 

r TON 

79 


^l CONTiNUr 

ZTOW 

*50 

<^o 

GC TO ?Q 

Z TON 

M 


2? I 1= I I«-l 

Z TON 

8? 


?0 CONTINUE 

ZTON 

715 


N=N-N'iAV 

7 TOW 



IF IN.PQ.NN) RE TURN 

ZTON 

-55 

»»5 

NlrN* 1 

/TON 

flE 


N=NN-NSAV 

Z TON 

87 


IF IK.UE.Nl IRFTURN 

ZTON 

88 


00 17 TsNI.N 

Z TON 

•'9 


ROTR II )= 1.3 

Z TON 

93 


ROT I 1 r »= 0, 

ZTON 

St 


17 CCNTINUE 

Z TOW 

o? 


RETURN 

ZTON 

95 


E NO 

ZTON 

94 
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•■.(.'f'pntn r c DPO 




OPT-l 


FTH 76 QfeC 




I 0 


?0 


p>c 


^0 


r 

r 


r, 

r 


r 


SUnPOUTiNF COPO 

: opo 

COPO 

• ^UOPCUTINF COPO PLCTS DATA GENffATn o y TM£ CON :OPO 

CPOGRAM, THE FOLLOWING lYPFS OF PLOTS AVAlLftrLF. COPO 

I, TIHF HISTORY COPO 

?4 TTHrl HISTORY WITH CSTAR ENVFL'.F' COPO 

FPtOUFNCV fiFSFCNSE COPO 

4, POW'R SPECTRAL OENSITY COPO 

. R 00 T LOCUS COPO 

6. 7-PLANF root LCCUS COPO 

7. ROOT CCNTOLP COPO 

COPO 

THP MAXIMUM NUMBER OF POINTS FOR AMY ONf PLOT IS 098, TH COPO 
MAXlr-UH NUMBER OF TIME FISTORY PLOTS IS . AN AUTOMATIC COPO 
PLOT REQUEST IS GENFFATFD AT THE EnC pr TH . JOB COPO 

COPO 

COPO 

external CSTAR -0^0 

DOtJPLE PRECISICN SNAME COPO 


COMMCM/rSTARn/CTML,C THU»CFNVL,CENVU/CSTAKP/FTML, pTmh, F f k \l, PFNVU r cpo 


ARRAYS IN following DIMENSION STATEMENT OEFIMf T HF POWER ANO CUPV^O 
APPROACH CSTAR OPTION ENYELOPFS FOP TIME HISTORY PLOTS. 


DTM'NSION CTML < ?0) ,CTMU (?0» ♦CENVL (?0 » tCENVU (ZO I , 

X PTML n? » .PTMUIZ3 I , PENVL U Z I , PEN VU ( Z 3 ) 

real UNCLE(10Z4> , VP( I00a> ,TM,FR« VP? ti coo* . 

XBIG( 10),YLOGTi».9l ,L0G(9I .NOT A , pTI TLE ( B I ,C0MMFN T (1?), 
X PS,RL.TIMEUOOO),V{25I.SlO<lOOO»,SZOtlOOO> 

INTEGER ORDER t 101 ,L 0 W , H ICH , LOW Y »H IGHY 
TNTEGPP VFP 


integer two. four. system 

=^CIJI VALENCE (FREQ.IFRE) 

integer REMUS, title (8) .LAP I 4) , ONE, NAME «25»,ENV .CSCRU V , CS PO A 
data OROFP/1 ,0,Z.5, I 0, I**, IZ* Ilf 3, 7/. 

XCFCRUV/nHCSTARC /, 

X ns^ J A/10 HCST ARP / 

DATA TWO/Z/.FOUR/4/.REMUS/10Z4/, 

XPC/1 QHPOCO /. 

XFR/1()HFR"0 /, 

XPS/ 1 OH "^PEC / , 

xtm/iohtime /. 

XPL/ICH^OLO /. 

XNCPLCTS/O/.NQTA/IOHNOT APP /. 

XPTITL*^/" PLEA-,“SE REA0JUS-,'*T FrN EVER", 

x-v ‘^IVE TC "."TEN olOT P-,-AGE5 ••••-,*•• "/ , 

xrCMHPNT/” *•*••• PLEA S**,“ E USE ■*.“ 

y. • p r R-,« FORA T“.- F 0 PA "."P E R * “i 


•V . 


X oiG/z*,ifl,,?s,.^o..i8,.zo.,tfl..z5..te..;o/f 

X YLO&/.l1 39,,1761f.Z30‘*,.Z78B,.361’,.3 9’9. .4 31*,, 

y .4fZ4, .E18E, . 5441, .568?, . 6911 ,, G33E,. €532. 

X .6721, .690 2,, 7243,. 7404,0, ,0 , , . 7993 , . 81Z9, 

X 0.,0.,,86?3,.8751,0.,0.f.919l,,9Z94,0.,0., 

y .9685, ,9777,0., C./, 

X LCG/. 3010 , ,4771 ,.60?l , . 699 0 , . 7 7 8 Z , , 8 45 1 , , 9 0 31 , . 45u?, 1./, 


C OPO 
C OPO 
C OPO 
COPO 
: OPO 
COPO 
COPO 
C OPO 
C OPO 
COPO 
C OPO 
C OPO 
C OPO 
COPO 
: OPO 
C OPO 
COPO 
C OPO 
COPO 
: OPO 
C OPO 
COPO 
COPO 
COPO 
C OPO 
COPO 
C OPO 
: OPO 
COPO 
C OPO 
C OPO 
C OPO 
C OPO 
COPO 
C OPO 
COPO 


z 

3 

4 

s 

6 

7 

9 

I Q 

II 
1 ? 

13 

14 
1 <=^ 
16 

17 

18 
19 
?0 
?1 
?? 
?3 
?4 
’5 

76 

77 
76 
?Q 

30 

31 
3? 
33 
14 

35 

36 

3 7 

38 

39 

40 

41 
4 Z 

4 3 
-4 
45 
•*6 
*.7 

48 

49 

5 0 
•^l 
SZ 
5 3 
^4 
<^5 

e 

= 7 

56 
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iljr-ynUTIN'^ noon 

r:^/74 OPl=l FTN 4.?*75060 

01/D9/?t 

It. ??. 47. 



Kiftort/iOH HAG-no / ,t arfl 1 /t 0hPHi*iec /,labfc2/ioh ouf to / 


COPO 

G9 


n 



COPO 

60 

: 


tjo plot FACTOPG AnO DATA FOP AUTO PLOT P^OUFST 
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CALL FflnTOR(,7874» 

COPO 

. 707 


CALL A Yn (0, , 0. ,16HZ-PLANE EX P AN CE 0 , -1 6 , 10 . , 9 0 . , .9 2 , . 0 1 ) 

C OPO 

708 


CALL A XT S <0. ,8 . ,9HIMAG A XIS ,-9 , 6. » 1 « 0. t 0 • , . 0 l» 

: OPO 

7C9 


call SVMf>CL<-7.5,0,» .14, TITLEI 11 *90.,8 0) 

COPO 

710 


CALL GYMOOL <-7,,,E,. 14,”GAIK INCFENENT ORDER , 9 0 . , 2 4 ) 

COPO 

71 1 


VY=4. 55 

COPO 

7 12 


DO ?044 J=l, 10 

COPO 

7 13 


CALL 9Y*4noi_ (- 7 , 1 ,y Y , , 14 , ORDER U) ,0 . , - 1 1 

COPO 

714 

? D4-. 

Y Y= VY«- .I.??; 

: OPO 

715 


CALL FAC T0P( 1.01 

C QPn 

Y16 


YHt 9 91 

C OPO 

717 


XMA x = i ,n 5 

C OPO 

7 18 


YHIN- 0. 

COPO 

719 


VMAX= , 07 

COPO 

720 


XCTc ,0127 

COPO 

721 


YCPEY=.0127 

C OPO 

127 


K LP = <LF*1 

C OPO 

7?3 


WRI rr (3, nil) 

COPO 

724 

llll 

FORMAT t2aX,”pyPANOEO ROOT tOCUS r,OHPLETEO“» 

: OPO 

725 


GO TO 207 

C OPO 

726 

1 ^00 

rONT INIJP 

COPO 

727 

c 


C OPO 

728 



COPO 

729 

c 


C OPO 

7 30 

r 

call ELCROUTThE TO PLOT ZEROES 

C OPO 

731 

r 


C OPO 

732 


call PPA nO< YHA X, YMI N, XMA X, XHIN, XOT.YCREY ,I0IG ,TIM' , VP ,N0KF ) 

C OPO 

7.33 


IP<IHG,NE.l) WRITS 13,1118 1 

COPO 

734 


IFfniG.PQ.ll NRITEl 5, 11171 

: OPO 

7 Yi; 

1117 

FfCMAT (20X.-7 PLANE ROOT LOCtS PLOT CONPtETEO**) 

COPO 

7T6 

r; 


C OPO 

737 


SPACE TO NEXT PLOT PAGE 

COPO 

7 38 


I E (I n G.NE, 1 ) CALL PLOT < 30* 4«5D ^CM. 0, ,«11 

C OPC 

739 


I F ( I DIG. EQ. 1 1 CALL PLOT 1 25 . hR? 0 ♦ CM , -2 . • CM , -3 ) 

COPO 

740 


NOPLGTS=NOPLOTSfl 

COPO 

741 


IF (M0KP.EQ*7> CALL PLOT ( -1 7 . *CM ,0 . , - 3) 

C OPO 

7^? 
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il* 


ri.'. 


?i : 


?( " 


7^r 


7 7 »: 


7 




79 ^ 


r ')fn 

T3/74 OOTsl 

FTN 4,?F7506r 

01/ 09/76 


g j 

r, c T" 99 9 


COPO 

7143 




: opo 

7Uk 





7^5 

»*««• 

►ROOT CONTOUR PLOT 1 E CT I ON** • * ♦ **♦♦♦ 


:oPo 

714 6 




: OPO 

7-7 

6? 

IFC^: 


COPO 

79 8 


GO TC 67 


: OPO 

799 

6t 

IFS = 1 


COPO 

760 


RFftKTII , tTIHP(L».VP(Ll ,L“1. II 


; OPO 

7F1 


IF( tTir= (tl. EO.-I.I.AND. fVP{tl.EQ,-l .n GO 

TO €3 

COPO 

7‘i? 


LL ~ 0 


COPO 

763 


00 ?60 L=lt I 


;opo 

751* 


I F ( ( W F( LU . GT ,YHftX 1 .OR* nVP (L n .LT.VMIN), 

CR. t (TTHE (L n .GT . 

, XHAXI . 0 COPO 

7 65 

XR . MT iMf a. > ) ,LT, XMINM GO TO ?e0 


COPO 

7'’6 


IF((<YP<Ll»*EC.O.I.ANO.<(TTNFfLM .EO.C.I 1 

GO TC ?feO 

COPO 

767 


( TIME <LI-XHIN l/XOT 


COPO 

768 


YN= r »/P<L l-VNTN) /YCRE Y 


COPO 

769 


IF(IFG,CT.')» GO TO 66 


: OPO 

7F0 


CALL CYMIOL IXN.YN, .30*CM,4»U., -II 


COPO 

761 


GO TO 2F0 


COPO 

7f ? 

;,c 

call «?YMR0L (XN,YNi , tO*CM.tfO.»-l) 


COPO 

7F 3 

aer 

CCNT INUE 


COPO 

769 


TFtlFS.FO.OI GC TO 66 


COPO 

7F5 


G r TO 67 


COPO 

7fc6 


TCr C = T 


: OPO 

7E7 


WRITt* (1,11191 


C OPO 

re 6 

i tiH 

FOPMAT (30X,"RO0T LOCUS PLOT CCMPtETED") 


COPO 

?F9 

1 tin 

FOPNAT t?OX,"POOT CONTOUR PLOT C CHPLCTEO**! 


: OPO 

770 




COPO 

771 





772 




Z OPO 

7^3 


SFAC^^ TC NEXT PLOT PAGE 


COPO 

7 79 


HALL OLHT ( 3 D . 96 0* CM, 0 , - 3 1 


C OPO 

7 75 


NCPLOTS- NOOLOTS+1 


C OPO 

7 76 


GO apP 


COPO 

77Y 

^91 

WRIT' (1,10001 


COPO 

776 

1 30C 

format (/10X,‘"K 0 PLCTS REOUES 

T E C"t 

COPO 

779 


rc TO qp 


C OPO 

7 80 




COPO 

7»1 


HU'^T o- A LT^IT CARO FCR FACH REGULAR ROOT 

LOCLS OP POCT CONTOUR i OPO 

78? 




COPO 

783 

99 R 

WRITE! 3, =^031 


COPO 

789 

% 

FCRMAT (IQX.’T fl R 0 R - - NO (*T* CARD EOR RCCT LOCUS CR 

ROOT CON COPO 

7 85 


XTCUR PLOT**) 


COPO 

786 


GO TO P91 


COPO 

787 

19 

CON TINU- 


: OPO 

788 


CALL PLOT ( n, ,0, ,99 3» 


COPO 

7 89 




COPO 

790 


r,iTN'»ATi" AUTOMATIC PLOT RFOUfST 


C OPO 

791 




COPO 

79? 


CALL PLOTREC <SNAME« SUB T A SK t 0 . 0 , 0 , 0 , 0 ♦ NOT A ( 

iNCTAtOiO.r t 

COPO 

793 


XPlITLr.N CPLOTS. 0 , 1 V SN , C OMN ^N T I 


COPO 

799 


XPTITLE«NCPLOTSfO»0*C CMHtNT) 


C OPO 

795 


EKO 


COPO 

796 
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?u‘^cnrjTtKf ->-Ann cotsi 


FTN 75561' 



SUO3 0UTINE e 'AHO ( YH at, VMIN, XM AX , X M N, Y C9F X , YC RE V . 1 0 I G , TIHT P.NOKP ? EAP3 
n REAOC 

?EAno 

: * READO 

r THIS '^inPOiiT IN'- (^EATS ANC OLCT5 TEE 7FROES OF TEP TPANEFpR REAOO 

•- FUKnriCN FQP A (ROOT LOCUS REAOC 

r REAOG 

C ?EAOO 

niHENSION T IME (1 ) ,tfP (1 » REAIO 

IF MNOKP.NE.?) .OR. < iniG.NE, 1 M GO TO l?34 TEAOO 

ofaC (9) I,(TIHECL> .VP(LKL = 1*I» TEADO 

IF (^QF (9 » .NE , 0 ) GO TO 161 REAOO 

IF ( (NOKP.EO. .ANO. ( IDIG,EQ,1» » CC TO 11 R£AOO 

1?3<* CCNTTNU*^ Rt^AOO 

pEAnt?) r. (ttmp (L 1 , vp<L» fL=i. n teado 

IF (lOTG.EQ.l > HRITF (9> T , H I ME < L I , V P ( L » » I = 1 . I ) READO 

11 CCNTINUE REAOC 

no 16Q L -l.I R EA DO 

TF( ( VP(U .GT. YMAXI . OP. I ypa» .LT.YMIN) .OR.ITIME (L >. GT .XmAX ).OP. (T IM R : ADO 
- E (L ) . LT, y MIN ) 1 GO TO 160 REAQO 

(TIME (L) -XMIN )/YCPEX-. 039 T EA 00 

YN= ( VP(L) -YMIM /YCPEV-,049 REAOC 

IF (iniG. NE. 1 ) GO TO 159 R EAOO 

«Nt ( VP(L ) ► / YGREX-, 039 ?£A00 

YN= (1, fTTME (L) l/'yCREY-.049 RFAQO 

IF (VCPPV.rn , , 01?7) XN=- VP< L) /YCFEY -.C39 TEAOO 

IF (YCREY.EQ..D1771 VN = ( IE . ♦ 1 T IMF (L) -1 . » /. 0 0 5 » /?. 5h -.049 REAOO 

159 tall SYMROL (X N,YN». 140 ,5^,0. ♦-!» REAOO 

160 CC^TINUF REAOC 

161 CCMINUE REAOC 

D r TUPN ? EA 00 

''NT R“AOO 


3 

4 

5 
F 

7 

a 
9 
1 0 
11 

13 

14 

15 
t fi 
1 7 

1 a 

19 

?0 

?1 

?3 
?4 
?5 
’6 
cl 
?8 
?9 
30 
■’1 
?? 
3 3 
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SUr'f.’OUl I Kr 

riflP ?V74 OPTS 

SLP=^dUTT»*€ C'^Ta? 

1 


FTN 4,; 

2^75r;6D 01/09/7r 

: STAR 
CSTAP 

14.23, 

2 

3 









r 

TKH rU'i^OUTlKiT rONTAIhS 

tmf ekvelope curves I 

FOR CSTAR OPTIONS CSTAR 

5 


C P U I 1 -■ a N D 

DHNEP approach 



: STAR 

6 









r 






:STAP 

6 


CCMHCN/r '^TflVC/C T'«L 

,C TMU,CFMVL .CENVU/CSTARP/PT«L,PT**U 

,P£NVL,PcNVU CSTAB 

9 


niM'NSlON 

CThl <30 > 

,C THU (301 ,CEKVL (?0» ,CENVU(?a 1, 

CSTAR 

10 

n 

X 

PTHL 

,PTHU (?31 , PfHVLU2>, FENVUC23) 

CSTAR 

11 


CiTA rTHL/ 

0.09, 

• 20. 

.40, .50, .fO, 

.70, 

.80, .90, CSTAR 

12 


X 

I . 00, 

1.10, 

1.30, 1.30, 1.50, 

1.70, 

1,80, 1.90, CSTAR 

13 


X 

?. 00, 

5.00, 

o.no, O.QQ/, 


CSTAR 

14 


XCENVL/ , C T , 

. 000 , 

, 775 , 

.890 , .690, 

. 865, 

.855, .800, CSTAR 

15 


X 

, 7«5 , 

. 795, 

,610. . 855 , . 905 , 

.926, 

.94 0, .950, :STA» 

16 


X 

,9?0, 

• 000, 

. 000/, 


CSTAR 

17 


XOT‘4U/0,C, 

,030, 

. 075 , 

.113, . 180 , . 200 , 

. 300. 

.340, .400, CSTAR 

18 


X 

. 600 , 

. 600 , 

1. OCO, 1.100, 1.200, 

1.300, 

1.400, 1. 50C, :STAR 

19 


X 

5. one. 

0.000, 

0. 000/, 


CSTAR 

20 


XHFN VU/;T* J « 

. 600, 

1 . ?00, 

l.<*00« 1.600, 1.645, 

1.730 , 

1.735, 1.720, CSTAR 

21 


X 

1 . 5E5, 

1. 35« , 

1.200, 1.145, 1.105, 

1,070, 

1.0^5, 1.050, CSTAR 

22 


X 

1. 050, 

0, no j , 

0. 000/ 


CSTAR 

2 3 


PftTA DTHL/ 

a,oo , 

.20, 

.60, 1.40, 2.35, 

2, 50, 

2.75, 3.00, CSTAR 

24 


X 

X. ?5, 

3.50, 

0.00, 0.00/, 


CSTAR 

25 


XPEN\(L/P. 0* 

0.00, 

.55, 

.69, * 69, . 76, 

,69, 

.-9, .73, CSTAR 

26 


X 

.65, 

.00 , 

.<’C/, 


CSTAR 

27 


XPTMU/0. C f 

, 01 , 

. 06, 

.10, .16, .20, 

• 30, 

.42, .50, CSTAR 

26 


X , E 0 , 

.70, 

.60, 

•90, l.QO, 1.20, 

1.33 , 

1.-30, 2.00, CSTAR 

29 


X 3,50, 

T . 0 0 , 

3.50, 

0*00, 0.00/, 


CSTAR 

30 

^0 

X PFN VU/ P , 

. 50, 

1. OQ , 

1.2C, 1.50, 1.62, 

1.64, 

2.:a, 2,08, CSTAR 

71 


X '’.IF, 

?. ?1, 

2,23, 

?.?(*, 2.21, 2.06, 

2.00, 

1.92, 1.71, CSTAR 

32 


X 1 , 5F , 

1,39, 

1. 17 , 

0.00, 0.00/ 


CSTAR 

73 


•Mn 





CSTAR 

34 
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''Lr^'niiTi ■ 

i u.r' 

M/7U fOT=l TTK 4, 

7UfO'jUTlNf ( <iAX, yMiN, c, KFACfO!V«SCAL6» 

’♦ 7506C 

01^09/7 f 

SUQGCL 
SUR SCL 

14, ?T 

? 

3 







4 



THIS sunwaJTiKF roMoijT's th- scaling factop 

FOR ROOT 

LCCUS RLOTS 

sunsCL 

5 














n 






iLJRSCL 

7 



niMST^sinN V n 1 



SUPSCL 

a 



FAC(4) 



5URSCL 

9 



n AT A r AC /I. , , r. ,i 3 . / 



3URSCL 

10 

10 


A= XM AX -X^IIN 



SURSCL 

1 1 



IF< A. FG. 0. 1 CO TC 1 ' 



5URSCL 

\z 



SL - N = I V/1 0 . 



SURSCL 

13 



8 = A/ 'L FN 



SURSCL 

14 



IF ( '^.GT . .c. ANO.f^. L*^. 1. ) GC TO 401 



SURSCL 

15 

1 


I F ( n , L F . =5 , ) no TP T i 



SURSCL 

16 



GC TP 41 



SURSCL 

17 


17 

HRI T“ [ T, '>01 



SUR SCL 

16 


^0 

FORMAT (" DATUM MAXIMUM AND MINIMUM ARE THE 

SAME" ) 


S URSCL 

19 


40 

GCAL F- . 0 1 



SURSCL 

EO 

’0 


GC TC F 



5 URSCL 

21 


iOl 

s r A L 7 = 1. 



SURSCL 

2? 



'..r, TC ■ 



SUR 5C L 

23 


41 

>C ^ [=1,499 



SU"SCL 

24 



on 4 j=i , T 



SUOSCL 

25 



IMQ.GF. F AC( J| (I-l>| GO TP 4 



SURSCL 

?6 



sr AL ■ = F 1C ( j> I -1 1 



SUPSCL 

?7 



G r TO 5 



SURSCL 

?e 


4 

C ON T INUr 



SURSCL 

29 



GO TO G 



SURSCL 

30 


Ifl 

DC <[ 1^1,999 



SURSCL 

31 



on ^ 9 J- 1 , T 



SURSCL 

32 



IF(9.Lf .FAC(>,-J>»10.**(-I*in GO T039 



SURSCL 

33 



SCAlf^FAC (-i*n 



SURSCL 

34 



GC T') c 



SURSCL 

35 


IQ 

nCNT [NLF 



S URSCL 

36 


c 

A =A'^00 (X , •'CAL F ) 



SURSCL 

?7 


\ ^ 

IFJxHTN.i.T.D. 1 XMIf<=XMIN-A 



SUPSCL 

.3 6 



IFCXHIN, LT.O. 1 xmim=xmin-scale-a 



3 URSCL 

39 



IF(KfAC.GT.O) GOT 353 



SURSCL 

40 

-0 


XHTN=VHTMfSCALE*SLFN 



SURSCL 

41 



sriLL = -onAL- 



suascL 

H? 


? 0 

C f NT I NUT 



SURSC L 

m3 



R F T 1 ) t N 



SURSCL 

44 






SURSCL 

4*? 
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APPENDIX 2 


NAMELIST CODE 


THE CONDITION CODES AND INPUT CATA ARE CCNTAINEO IN THE NAMELIST CODE 
AND ARE LISTED BELOW. ALL OF THE CODES AND DATA ARE INITIALIZED TO ZERO 
AT THE START OF EACH CASE UNLESS THE S AV OPTION IS SET 

LQN[iIIJQtJ.tQDE.S (INTEGER VARIAELES) 

READ , SYSTEM, OUTPUT ,MIXED ,DIGIT L, FRPS tNUMERS ,TRES P,NX, NY,NU ,NXC ,NUC t 
ZOH tNl ,N2,CnNTUR»MULTRT,MOCEL,NSCALETCMAT,NK2, FORM, IPT , IGO , SAVt 
IF LAG,RE A03 

LtlEiiJ-DAIA <REA L VARIABLES) 

DELT,FINALT,IFREC,FFREQ,DELFRQ,M,GAIN1 ,GAIN2 


C.QNQIllQN-CQDE.QEiCBl£IlCIii (INTEGER VARIABLES) 


READ I DATA MATRICES INPUT THROUGH LOAD SUBROUTINE 

2 DATA MATRICES CONSTRUCTED IN USER WRITTEN MATRIX SUBROUTINE 

3 DATA FRCM PREVIOUS CASE ALTERED IN USER WRITTEN CHANGE 
SUBROUTINE 

4 DATA MATRICES CONSTRUCTED FROM BLOCK DIAGRAM INFORMATION 
I N CLASS SUBROUTINE 


SYSTEM 


OUTPUT 


M IXED 


1 

2 

3 

1 

2 

3 

A 

0 

1 


□ PEN LOCP SYSTEM ANALYSIS 
CLOSED LOOP SYSTEM ANALYSIS 
ROOT LOCUS ANALYS IS 


ri K G-X 
Ha --r Fw 
H X 4- “t 


NO ACTI CN 

MIXED SYSTEM ANALYSTS (SEE TABLE 
SYSTEM MATRICES ARE CCNSTRUCTEC IN 
STEP I 


) 

TWO-STEP 


PROCESS, 

A,B, 


SPECIFIES OPEN LOCP PLANT (I.E. SPECIFY 
C,H,G,F REGARDLESS OF VALUE OF SYSTEM). 

STEP 2 AUGMENTS PLANT WITH CONTROL SYSTEM DESCRIBED 
BY BLOCK DIAGRAM USING CLASS. 

SYSTEM SPECIFIES THE TYPE OF ANALYSIS FCR THE 
AUGMENTED SYSTEM. 


OIGITL 0 CONTINUOUS SYSTEM ANALYSIS 

1 SAMPLED-DATA SYSTEM ANALYSIS 

2 DISCRETE SYSTEM ANALYSIS 


IF DIGI TL ^ 
DISCRETE OR 


0, DELT 
SAMPLED 


SPECIFIES THE 
-DATA SYSTEM. 


SAMPLE PERIOD THE 
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FRPS 


N UMC R S 


TRFSP 


N X,NY,NU 


N XCt NUC 


Z i)H 


Ml, ^J2 


C ONTUR 


MULTRT 


0 NCT APPLICABLE 

1 FREQUENCY RESPONSE CALCULATED FOR EACH TRANSFER FUNTION 

S-PLANE IF DIGITL = 0 

W-PLANE IF niGITL = 1,2 (CELT REQUIRED) 

1 S-PLANE FREQUENCY RESPONSES CALCULATED FROM Z-TPANSFER 

FUNCTIONS WITH DIGITL = 1,2 (DELT REQUIRED) 

2 S-PLANE PORER SPECTRA CALCULATED (OIGITL= C) 

0 NUMERATOR ZEROES CF S- OR Z-TRANSFER FUNCTIONS CALCULATED 

1 NUMERATOR ZEROES FOT CALCULATED 

CCNTROL WILL COMPUTE TRANSFER FUNCTION NUMERATOR ZEROES 
FOR ALL INPUT-OUTPUT PAIRS DEFINED BY THE INPUT AND OUTPUT 
VECTORS. FOR MIXED SYSTEM ANALYSIS, THE ITHINU AND ITHINY 
OPTIONS ALLOW UNWANTED TRANSFER FUNCTIONS TO BE ELIMINATED. 

0 NO ACTION 

N N TRANSIENT RESPONSES CALCULATED. 'CELT SPECIFIES INTEGRA- 
TION STEP SIZE. IF DISC INPUT ROUTINE IS USED, THERE MUST 
BE N INPUT CARDS AT THE END OF THF DATA CASE GIVING THE 
I NPUT STE P FUNCTI CN. 

DIMENSIONS OF X, Y, AND U VECTORS. IF MIXED = 1, NX, NY, AMD 
NU SPECIFY DIMENSIONS OF THE OPEN LOOP PLANT (STEP 1). 

STATES ADDED IN STEP 2 OF THE MIXED OPTION AUTOMATI- 
CALLY INCREMENT NX, NY, AND NU . 

DIMENSIONS OF STATE AND INPUT VECTORS CORRESPONDING TO THE 
CONTINUOUS SUBSYSTEM (PLANT) CF A SAMPLED-DATA SYSTEM. THE 
PLANT MUST RE PARTITIENED IN THE UPPER LEFT POSITION 0'^ THF 
SYSTEM MATRICES ( A , B , H , F , ET C . ) NXC 1 NX , NUC ^ NU 

FOR SAMPLED-DATA SYSTEMS, THE NUMBER CF INPUTS TO THE 
PLANT WHICH APE OUTPUTS OF ZERC-CPDER-HOLD DEVICES. THESE 
MUST BE THE FIRST ZCH COMPONENTS OF THE INPUT VECTOR, U. 

THE ROOT LOCUS CPTICN ALLOWS TWO FEEDBACK GAINS ITO BE 
SPECIFIED. N1 IS THE NUMBER OF ITERATIONS OF THE FIRST 
VARIABLE (K1,K2) AND N2 IS THE NUMBER OF ITERATIOnjs OF 
THE SECCND VARIABLE (K3,KA). (CCMMCNLY, N2 =0). 

IF N1 > Of GAIN INCREMENTS ARE ARITHMETIC (0,1, 2, 3,..) 
IF N1 < 0, GAIN INCREMENTS AR F GECMFTRIC ( 0 , 1 , 2 , 4, 8, . ) 
Gain increments of second variable are the same as the first; 

0 NCT APPLICABLE N2 must be >0. 

1 ROOT CONTOUR OPTION FOR PARAMETER VARIATION STUDIES 
CONTROL DETERMINES ONLY SYSTEM EIGENVALUES AND RETURNS 

TO TOP CF PROGRAM FCR NEXT VARIATION. CONTINUES UNTIL CONTUR 
SFT TO ZERO. (USED WITH I F L AG , REA03 , 5 AV , AN C CHANGE) 

FCR SAMPLED-DATA SYSTEMS, CCMPUTES MULTRT TRANSIENT 
RESPONSE POINTS FOP EACH SAMPLE PERIOD SO THAT INTERSAMPIE 
RESPONSE MAY BE INVESTIGATED. ONLY TRANSIENT RESPONSES 
ARE CALCULATED IF MULTRT IS SET. 
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'100EL 
N SCALE 

CHAT 

NK2 

FORM 

IP T 

I GO 

SAV 

I FLAG 
R E AD3 


'I NCT APPLICABLE 

I MODEL FCLLOWING CN CONSECUTIVE FREQUENCY RESPONSES 

T NCT APPLICABLE 

I STATE VECTOR TRANSFORMED TO IMPROVE NUMERICAL CONOITIOMING 

IN DETERMINATION CF EIGENVALUES. A MATRIX SCALED BY A 
DIAGONAL SIMILARITY TRANSFORMATION. 

T C MATRIX IS THE IDENTITY MATRIX ( C NOT REQUIRED) 

I C y I (C REQUIRED) 

1 K2 = 0 f K4 = 0 (K2fK4 NOT REQUIRED) 

1 K2 yo OR K4 y 0 (K2fKA REQUIRED) 

0 PRINT C'NLY FOR OUTPUT 

1 PRINT AND PLOT OUTPUT 

2 PLOT ONLY FOR OUTPUT 

THE CONTROL PLOTTER PROGRAM AUTOMATICALLY SCALES ALL PLOTS 
EXCEPT ROCT LCCUS PLOTS (WHICH REQUIRE AN EXTRA 
DATA CARD ) . 

CODE FOB EXTRA PRINTOUT FOR DEBUGGING 

0 NO EXTRA PRINTING 

1 ,2 E XTRA PRI NTI NG 

CODE FOR CATA REQUIRED BY CLASS SUBROUTINE 

0 INPUT DATA REQUIRED BY CLASS (TABLE Vt STEP 2) 

1 CLASS USEC DATA FROM PREVIOUS CASE 

0 DATA MATRICES NOT SAVED 

1 DATA MATRICES SAVED FOR SUBSEQUENT CASES. IF MIXED = It 
CONTROL SAVES MATRICES DEFINED IN STEP 1 (CLASS INPUT 
data, STEP 2, IS NOT DESTROYED AND IS AVAILABLE FOR 
SUBSEQUENT CASES) . 

0 ON SUBSEQUENT CASE THE CONDITION CODES AND INPUT DATA ARE 
ZEROED BEFORE THE CALL TO CARD. CARO REACS T ITL E, NAMEL I ST , 
OUTPUT LABEL ,AND INPUT LABEL CARDS 

1 ON SUBSEQUENT CASES THE CCNOITICN CODES ANC INPUT qaTA OF 
’■HE PRESENT CASE WILL BE USED. CARO REACS ONLY A TITIE 
CARD FOR ALL SUBSEQUENT CASES. (THE OPTION MAY BE CANCELED 
BY SETTING (FLAG = D OR BY END nF DATA DECK). 

0 NO ACTION 

1 ON SUBSEQUENT CASES, READ DEFAULTS TO 3 TO FORCE PROGRAM 
TO THE CHANGE SUBROUTINE. THE OPTION IS USEC WITH IFLAG 
FOR PARAMETER VARIATION STUDIES. 


190 



LtiPUI_Q&M_D£SCEi£IiCti (RF^L VARIABLFS) 


DELT time increment EnR TRANSIENT RESPONSES ANC/OR SAMPLE PER 1^0 

EOR SAMPLEO-DATA SYSTEMS, SECCNOS 

F INALT final time for TRANSIENT RESPONSES, SECCNOS 

I FREQ, FFREQ,DELFRQ 

INITIAL ,F INAL, AND INCREMENTAL FREQUENCIES FCR FREQUENCY 
RESPONSES OR POWER SPECTRA. DELFRQ = l.l IS GOOD FOR 
MOST APPLICATIONS. FREQUENCIES MUST BE SPECIFIED IN 
(PFLFRQ CANNOT EQUAL 1.0) 

RADIANS/SEC. (S-PLANE) EVEN FOP DISCRETE AND SAMPLED-DATA 
SYSTEMS. IF IFREG ^0., PROGRAM DEFAULTS TO AN INTERNAL 
SET OF FREQUENCY POINTS SPACED BETWEEN .1 AND 150. RAD/SEC. 
FOR SAMFLED-DATA FREQUENCY RESPCNSES CONTROL DEFAULTS 
IN THE FOLLOWING MANNER, 

IF DIGITL9'0 and FRPS A-l AND IFREQ=0 
IFREQ = TAN (.1*DELT*.5) 

FFREQ = TAN (.9*3. 14*. 5) 

IF DI01TL;*0 AND FRPS A- 1 AND IFREQ^C 
IFREQ= TAN { IFREQ*DELT* .5) 

FPRFQ = TAN ( FFREQ*DELT* .5 ) 

M CODE FOR MODIFIED Z-TRANSFER FUNCTION COMPUTATION FOP 

SAMPLED-DATA SYSTEMS. M IS THE FRACTIONAL SAMPLE PERIOD 
DELAY AND IS IN TEE RANGE O.i M < 1. M = 1. GIVES THE 
STANDARD Z-TRANSFCRM IF THE SIGNAl HAS NO JUMP DISCONTIN- 
UITY AT THE SAMPLE INSTANT. M = C. GIVES THE Z-TRANSFORM 
WITH A CNF SAMPLE PERIOD DELAY. HOWEVER, NUMERICAL ERRORS 
LIMIT M TO M ^ .Z . THEREFORE, IF M=0., THE PROGRAM 
DEFAULTS TO STANDARD Z-TRANSFOPM ANALYSIS. ONLv OPEN LOOP 
CALCULATIONS (MODIFIED Z-TRANSFER FUNCTIONS AND FREQUENCY 
RESPONSES) MAY BE PERFORMED WITH THIS OPTION. 

GAINl,GAIN2 ROOT LOCUS GAIN INCREMENTS FOR THE TWO FEEDBACK GAIN 

VARIABLES ALLOWED WITH THE ROOT LOCUS OPTION. IF NOT SFT, 
PROGRAM DEFAULTS TO GAIN1= 1.0, GAIN2= 1.0. 
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APPENDIX 3 


INPUT AND OUTPUT LISTINGS OF EXAMPLE PROBLEM 


A . INPUT LI STING 

EXAMPLE PROBLEM LATERAL-DIRECTIONAL AIRPLANE C CCNTRCL SYSTEM 
$C0 3E READ= 1 , M I XE D= I , SYST EM =l , OU TPUT=2 t NX =4 , NY= S , NU=2 » NS C AL E^O t S AV = 0 1 
CMA r= 1 , IPT=Ot FRPS=l f I FLAG =0 ,RFAD3=0 tDELT= .0 5, FI NALT = 3 . , 

TRESP= l,FORM=C, IF P E Q= . 1 t F FR EQ = 20 . fOELFRQ=U ll,$END 
ROLLRATE YAWRATE BETA PHI AY 

DELTAAC DELTARC 

4 4 

-5.9 1.7 -15. 


— #4 — 1 . 10 . 

-.004 -1 . “.25 .11 


1 . 


4 


2 


14. 3. 

-.6 - 6 . 

.07 


4 4 

I, -.C2 

-.02 1 . 

1. 


8.7 

5 4 


1 . 


1 . 


S 

1 L 

2 4 

3 8 

4 6 

5 5 
1 
3 
3 

1 

2 

5 
2 
3 

6 


I 

4 5 


2 

4 


2 

3 

4 

5 
1 
2 
3 


1. 


3 

1 


8. 7 


4 


3 

1 

2 

4 

5 

5 


- 2 . 

1. 25. 

1. 25. .7 

1 . 1 . 

-.1 10 . 2 . 


192 



I'. OUTPUT LISTING 

ryA«^CL0, pqp-.Lf:M L ft T€f? a L - T T wgr T I ONA L fllPPLAKE 4ND CONTROL SYSTEM 
nCN TTnUOUS S Y^T EM 

^ixrn option 

OPFN LOOP 

LOAO PC(JTir~ INPUT 
TPAMSpPC FUNCTIONS 

FRtOliPNCY crr;pirf,jrrc 

TFflNSIFNT P-‘SPCNSPS 


NX 

s 

u 

R pftn 


1 

TRESP 

- 

1 

CHAT 

= 

1 

OELT 


.oso 

NY 

= 

n 

SYST ~M 

- 

1 

FRPS 

= 

1 

NK ? 

r 

0 

fina lt 

r 

3,000 

NU 

= 

? 

MI XED 

= 

1 

NUMPRS 

s 

0 

IFLAG 

- 

c 

IFPEO 

= 

. IOC 

NXC 


r 

0 U TP U T 

= 

? 

FORM 

= 

0 

TGC 

r 

0 

DB L“RO 

= 

1.110 

NUC 

= 

0 

OTGITL 

= 

0 

CONTUP 

= 

0 

REAOT 

= 

0 

ffr: q 

= 

?0.000 

7PH 


c 

TFT 

- 

0 

hultrt 

- 

0 

SA V 

= 

0 

GAIMl 

= 

0.000 

^ 1 

= 

c 

KOW T 

= 

1 

MODEL 

= 

n 

NSCALF 

- 

0 

SAIN? 

= 

c.occ 

N? 

= 

0 










M 

= 

0.000 


THr A MATRIX IS 
L i* 


- . ♦ c 1 

, ■! n 0 '■ f 3 1 


. 1700:*-3 l 

iooc:+ M 

1 0 00'7-»- ni 

- 0 , 


-,lE)0E^r? -3. 

, 1 oooE^ T? -n. 
-.pFooc^oo .iiooe+00 
0 . -0 . 


TMC T HftTRIX IS 

^ ? 

•lUu V *:? , ^ooc ■+ :i 

-.hCT'^-4 f!(3 -.^iOOC =^31 

0, . 7001 •- 01 

0 , - c. 


THF r matrix is 

U 4 

0 . 

0 . 

0 . 

. lOOOE^Ol 


, 103 : 1 -• ?: 00^- :i -o , 

-.2000E- Cl .1000+01 -0. 


3 , 
0 . 


-c • 

- 0 . 


. I 300E+01 - 


TH;. f- MATRIX IS 
E 4 

- 0 . - 0 . 

- 0 . “ 0 . 

.lOOOE+Ql -0, 

-1. .IDOOEfOl 

-C. -.lOOOE+01 


1 0 3 0 1 


-C 


fl 7 0 3 f f T 1 
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THr G 13 


*■ «« 


-n. 

- C * 

-0. 

-0, 


-0. 

-0 . 

-n , 


-(?♦ 

-a. 

~r • 

-D , 

-c ♦ 

• 0 • 


-0. 

-0. 

-0. 

, B7noF4-m 


9LCr X 

r u 

TNPLT 

P40AM 








NO. TYP'" 

rnK'Nr 

C 

Mon 



P (VPAM 




1 

1 

-c 

-C 

-0 

T 

- 0 

-a* oGoo 

-C .0030 

-t. oooc 

-0.0000 

- 0 . oooc 

? 

c 

-c 

-c 

- 0 

1 

- T 

1.0000 

?5 , 0000 

-O.QOOC 

- 0 . c coo 

-0.0008 

T 

8 

4 

c 

-0 


-0 

t . 0000 

?5.0000 

. 7000 

-0. 0 000 

-0 .03or 


G 

-c 

-a 

-0 

4 

-G 

1 .0000 

1 , nnoo 

-Q. OOOO 

-0.0000 

-0.0100 


5 

-0 

-0 

-s 

j 

- 3 

-1.0000 

10.0000 

?. OOOO 

-0. 0000 

-0.0300 



T THINY 










1 

? 

3 


c 

-0 

- D 

-0 -0 

-0 






ITHTNU 











4 

«n 

-Q 

-0 

-a 

- 0 







YTCV 


I ? 

? 4 


7TCU 

? 1 

^ ? 

Y7Tni< 

f 1 
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TH»' FT^aL IT 


THt M6TCIV IS 

u q 


- • 5 1 n ? 1 

a Jl 

- a 14“^ It* G2 

0. 


a 18Q1E*G4 

Oa 

3. 

Oa 

-.51'^?= >0C 

-a 9Et4‘ ♦ 00 

aq704F|-01 

0 a 

-,8007E*C1 

-a V14E + 04 

0. 

0. 

Oa 

-. itOO 0^- 02 

-aiooof^ni 

-a P^OQF+00 

a 1100^ *00 

0 a 

,4575E*02 

Oa 

Oa 

0. 

♦ ioin"+ ji 

0 a 

0, 

0 a 

Oa 

0. 

0. 

0 a 

0 a 

2onoF+ 01 

0. 

Oa 

Oa 

-a?500F*a2 

Qa 

0. 

Oa 

Ca 

0. 

0 a 

Oa 

0. 

0. 

0. 

alCODEfOl 

1 a 

0. 

-.4l^3'+0? 

-a 4250F + 02 

0 a 

aSOCOFfOl 

Oa 

-•E250E+03 

“a3EOOE*02 

-.1 OlOEf 01 

.^0OQF*0? 

0 • 

a lOOOF-F 01 

0. 

0. 

0. 

Qa 

Oa 

-alOQOE* 01 

Oa 

a *01 

a f Ol^ 01 

r a 

-a 1 0 C0E*01 

0. 

C. 

Qa 

0 a 

-a UOOE*02 


THE 

H MATRIX IS 

0 

2 

■la 

'' , 

Qa 

0. 

n a 

Oa 

1 a 

b a 

a 1 0 •: C t * M 

n , 

? a 

Ca 

0. 

a 10 QQf t 01 

0 a 

0* 

1 a 

C . 


THc 

H MflTRI'^ 11 








5 

9 








a 101QF«. 

Ca 

0 a 

0 a 

0« 

0. 

0. 

0. 

Qa 

Q a 

a 1 0CC5* 01 

0. 

0 a 

Oa 

0. 

Oa 

0. 

Oa 

0. 

n a 

•1 moE* 'll 

n. 

Qa 

Qa 

Oa 

0. 

1 a 

L a 

C a 

1 a 

a lOOOE+01 

Oa 

Qa 

0. 

0. 

Oa 

a SbnSE* 01 

.870C- *01 

0 a 

-a 1 0C0E*01 

Oa 

0. 

Oa 

0. 

Qa 


THF F MATRiy IS 
F 2 

T . 0 . 

3 • . 

■1 . r, 

0 , 0 . 
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the riGFh VALLIFS OF tVST~M ^pc 


i^'AL dart 


IHAGINAPy PAPT 


3« 

-. I ou:^a f*o? 
-, itjaeo^aT' + n’’ 
“.14'»b'lU«TF*r5 
. ?i a>) 1 i*i4F ♦ 

-. 13-.ia 0 7 0F*01 
-. 1 e^O 1737E«‘01 
-• 

. 9 ?P 9 i< 3 ^Tr-p? 


-. Ti*7117C6F»0? 

. 3i<7ll7QeE+02 
-• 36751 l?lf +02 
• 36751121F^02 

C« 

0. 

0 • 

3. 

C« 


THt CO FFFICI -.NTS OF TH*^ CH AR ACTE P IS T I C EOUATICF OfiOPREC FROH THE LOWEST POWER OF S 


. n?6T7635C*06 

- ,6>t570F33E*0fl 

- , 

- 3?57aVF4 09 
-. ILie 7S?5E^L9 

- .?iq?5S?0 H7 
.^7l-:£3CTE*04 
. 339 36?5'^'"*0L 
. ’ai?e7Sl'^»0? 
. 1 C Of OC (?»^ + 01 


THE DOLL DATE/ OELTA AC NUMERATOR GAIN IS .mqfiE >03 


IMAGINARY PART 


THE 7*ROFS OF TmF TRANSFER FUNCTION ARE 
DEAL PART 


-.AOaT 7q30E>D2 
-.40 «3 7930 E + 0 ? 
, 3743 q 375 F* 02 
l23qfl563E»0l 
-* 174T93q3E*01 

. 483 ^D 7 g 6 r,Qi 

. 5 3 rF 72 47 E -11 


THF COEFFICIENTS OF TH*^ NUMt^RATOR 


-,483q208qE+02 

.483920aqE+02 

0. 

C» 

0. 

0. 

0. 


POLYNOHIAL OROEREO FROH THE LOWEST pQWFR OE S 


-,a4l09?CaE-07 
. IE 74f l97«^+r5 

- . 30 4lC208E«-fI6 

*3q-31F5E4-06 

- .1472?‘^65E*06 

. to S 37 a? 3 r *04 

♦47l77Q»8Rf 02 
, 10 CCCQOOP^Ol 


DOLL 

DATD/ OELTA AC frequency 

RESPONSE S-PLANE 

FREQUENCY 

A HFLI TUDE RA no 

PHASE ANGLE 

? AO /SEC 

n 9 

CEFREES 

. loco 

1 5460 E 4 O 2 

. 86549 E 402 

. 1 lie 

1 48 F 8 F*Q 2 

.® 2507 E ^02 

. 123 ? 

-.1 42 C 3 E + 02 

.76 420 E*D 2 

• 1 3 F 8 

-. 1 3710 e<- 0 ? 

. 74304 E *02 

, 1 El a 

-. 1 3156 F +02 

. 70173 E ^02 


( 
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. 1 S' 

I262ftf^0? 

.66047F+C2 

. 1870 

-.171316+0’ 

, 61946F+ 0? 

. 7 07f 

- * 1 1 6 ! 8 6 ♦ 0 2 

,57ft94FfC? 

, - in r, 

-.1 1243F+0? 

, E3916F«> 0? 

. 

1 IftSTe^Q'^ 

,50a3ftE^02 

.?« 19 

-. 1 05n5»-02 

.462855»0? 

.11^? 

1 0?0?'9CI? 

. 42681E4 02 


- . 9 9 3 n 7 ♦ C! 1 

. 39?44F^0? 

. 1 

-.9 6946f^»-ri 

4 35989F402 

. ‘*■*1 n 

94ft93f^*-Ct 

.32925EfQ2 

7>*p 

-.9 nift E^Ol 

. 30057E+ 02 

. ^ m 

915 ft5E4-ri 

.27.384F^0? 

.^895 

-. ^ Q2f4E«-ri 

. ?4902F*02 

* " 5 W 4 

-.ft9l?0E+01 

,?'''60 3E4-a? 

. 7?ei 

-,6ftl24PfOl 

, 20474F402 

. 

-.3 7254E + 01 

. lft504F4Q2 

« 89<*Q 

-. ft54PftF+0l 

.1 6679F40? 

.9974 

- . ft 5 ft 1 1 ♦ C 1 

. 14982E+ 02 

1. 10?6 

-, 85?llFtrjl 

. 13h01E + 02 

1 .??19 

-.84677E+01 

. ll9?lF*-0? 

1 • 

-, 84?05rf01 

, 10531E*02 

1 . ‘^080 

-.ft378ftEfCl 

,9?195F+0l 

1. fe779 

-.8342? ‘^♦01 

, 79 763 E* 01 

1 .86H 0 

-.83104F+01 

•67930E*01 

?. ?«':^4 

-,ft?8?ftf fOl 

.5661?E4>01 

?. ?P9? 

82590Ft01 

♦ 45732E4-01 

2.^410 

-.ft 23R3F + C1 

.35210E^ 01 

?. e20f, 

ft 2203F^fU 

.24961E^0l 

1.1 308 

-.ft?04?E+Cl 

.14«99E^ 01 

3. u7:? 

-. ftl896E *01 

,49278E^OO 

3,3575 

-,ftir*7F+Cl 

50526E+C0 

4 , ?aip 

-.ft 1619Ef01 

-•15151E*01 

4. 7"^8 

-, fll 477E>0t 

-.?5485E*0l 

5 . ^ 7<=:5 

-.ftl3?4E»Cl 

-. 16183E4-01 

r . 3 559 

-.8 llft3E + Cl 

-.47387E401 

5.5001 

-,ft0965E*01 

-.59255E401 

7,?1'1 

-.fl07??E+01 

-.71969E*01 

H. 103ft 

-.« C441E+01 

-.85739E^Ct 

ft. ft ft 97 

-.ft C105E+C1 

-»100SlEtQ2 

9. 8676 

-, 7969lFfOl 

-.11750E*0? 

10 .9f 30 

-,79ie?E^01 

-•13616E^02 

12.1579 

-.7ft556Ef01 

-• 1E726E402 

1 3. 495? 

-, 777 nE^ri 

-,18l39E*-0? 

14, 9797 

-.7fc83?E+01 

-.20932F>02 

16.627*^ 

-. 75667E*Ql 

-•24207F^02 

1ft ,-555 

y 4?F5E*01 

-42P099E4> 0? 

20 . 4ft 67 

7?53is'^''l 

-.32793E402 


TMT raw eafE / OELTft AC 

NUHERATOR GAIN IS -,8003E«-01 

r 7-'^0 £c of the T9ANSFE9 fUNCTTCN 

APE 


t?EAL PART 


IMAGINARY PART 

' 1 lft9 85E6E + 03 


16589430E*-0 2 

1189 «556E^03 


. 16589430E^C3 

. 16ei6361F403 


0. 

tOOOOOOOE+Cl 


0. 

1S927576£*01 


0. 

-.f 1133543E-Q2 


-.55198013E-01 

-. 611 33543E-02 


.65198013E-C1 
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THF rOr FFI'^ r FKTC HF T mF NijM-RflTOR POLYNOHiflL ORCEPFO FFQH THE LCW<^ST POW^R OF S 


- . -Qi7c,eS7F* D5 

. , ->r r'^qf nt 

- • 1 40«37Fe E«-0e 

- , '*0«C6F1 3r»0fl 

- . ««!<* - 407 

, ?:? 0 <* 
,74Hl?50r>F^C2 
. 1 03000 GOF+01 


Vflh» PfiTF / nFLT4 AC FREQUENCY RESPONSE S-PLANF 


FReOUFKl'Y 

A8FLITUCE RATIO 

PHASE ANGLE 

RAH/^tC 

OR 

CEfREES 

. 1 Qor 

-. ? 1 300F<-Q7 

13061E*03 

,1110 

1 9472F402 

-.12962E403 


1 7956 E»0? 

-•12999E+01 

. 1 3fc6 

-.15674E^0? 

130a0Et03 

. 1R10 

-.15566'»02 

-.132C5E*03 

. 160F 

-,l4600F^n? 

-•13364E^03 

, 1 ‘^70 

-,13754F4'02 

-,13548Ef 03 

. r076 

t TOtOE^O? 

-,13749E*03 

. qqCF 

-,12357E+^2 

-,13963e^03 


1 l703F*n2 

-.14183E*03 


-.1 1261E+0? 

14405EA03 


-.1 0642E+02 

14626E^C3 

, ^498 

-.1 O450E+O2 

-• 14841E^03 

. ^ 3ft3 

-,ni21E»02 

15050E>03 

, - 3 1 n 

Q 6262E + 01 

-.15249E403 

. ^7«5 

-.95655E*01 

1E438E^03 

• 311 

?3335E^01 

-•15616E^03 


-,912!0E*01 

-.15785Ef03 


-.89360 E>01 

-,15944E^03 

. 72-,3 

6 7630E+01 

-.1E095E^03 

. «0P2 

-,66D39C>G1 

-.16240E403 

• ^ 949 

645 73E+-C1 

-.16J80E»03 

. 934 

-.6 3226E + 01 

-•leSlSE^ 03 

t . t 0?h 

6 2006E+01 

-,16649E^03 

i . ? ? 39 

-.6 091 3E + CI 

-.16780E^03 

1 , ’ 58 =^ 

-. 79956£4'P1 

-,1690ftE^03 

1 .- CIO 

-.79139E^01 

-• 17034E4D3 

1 ,F 739 

-,76463E*C1 

-,17156E^03 

1 . « ;3C 

779?3c:4PI 

-.17274E^03 

?* : 624 

-.77510P+O1 

-.17388E^03 

2,7892 

-.77209E+C1 

-.17497E+03 

2 ,F4l 0 

77Q04E + 01 

-•17601E*^D3 

2, 3 2 Of 

76876E+01 

17700E^03 

3 , r»38 

-,768Q6E*Ct 

-.17795E4-03 

3,u7-? 

-,76785E4'ni 

-,17886E*03 

3 ,6570 

-,76755r*Ql 

-,17975E^03 

w, 2616 

-,76826l*01 

•«16Q59E«>03 

■* • 75 ?6 

-. 7 6873E* Cl 

-,16147E^03 

:.,2 7rf 

-.76929E+-01 

-.1B?36E>03 

0 , “5-9 

769'31E*01 

-,18328E*03 

6, oni 

77056E*01 

18425E^03 

7,2151 

-,77129E*01 

-,18530E^03 

6 , j 086 

772P2E4-C1 

18€43E«-03 

a, 6897 

77279E401 

-,18770E^03 

9, <^676 

7 7355F* 01 

18912E^03 

10.9930 

-,77433E*-01 

19074E*O3 

12. 1579 

775C9E+C1 

-,19262E^03 

13,499? 

77580Ef01 

19484E>03 

14, 9797 

-,77640E^ni 

-•1975QE4^03 
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? 7 v 
2Z . -« 


776 P^=: + C 1 
-. 7 77 ^pr + n 
- . 7 7 7 c 0 ? ♦ C 1 


20070 P ^01 
-.20465P^D3 
-* ?09S5F»03 


TH" qeifl / npuTfl 6 c numerator gain ig .F 6 C< 4 e«’Ci 
the 7 roes of Tmc T^''a NSr^^R PUNCH ON A 9 F 

RPAU PART IHAGINARY PART 


-. TCn]i 3 EfE*C 3 0 . 

. M0 810 02 F + C3 0* 

Mn 70 ? 29 F* 0 ? 0 . 

-,R 7 >*& 6375 p + 0 C 0 . 

?0^ 36D76P«-M P* 

,xi<'' 67968 E-a? 0 . 


the CCpFFICIEMO of THP numerator polynomial ordered FROM The L 0 MP?T POHPR of s 


. l 38966 ?lF* 0 e 
-,lF)ie 0948 E* 08 
-.? 5 C 7761 ?S+r 8 
-.fleeC29C0r4.07 
- .95 2851 n 4 F ^05 
, 8 f ?t 45561 F> 0 ? 
. 1 OCOOO OOF^ni 


^‘TA / DELTA AC FREQUENCY RFGPCN5E S-PLANF 


FREQU^-NCY 

A^-PLITUOF ratio 

PHASE ANGLF 

RAO/SEC 

09 

OEFREES 

. 1090 

. 3 2188E4-01 

-.23476E^02 

. t lie 

. 3 0589 F*0l 

-.25631E402 

. 123? 

, 2 8696E + 01 

-.27927E*02 

. 1 3P« 

. 26474F+01 

-.30356E+02 

*1518 

, ? 3 889F* 01 

-• 32901E^Q2 

.1685 

, 70911 E^Ol 

-*35542E^ 02 

. 1 870 

. 1 7515r+r 1 

3P.253E^Q2 

. ? 0 7F 

, 1 3684P4-01 

4100 6E^Q2 

• 2305 

. 94Q98F^0C 

-.43769E*02 

, ^558 

. 46964F^C0 

-♦ 4€510E^02 

. 2839 

-.442575-01 

-,45198E^Q2 

. TIP? 

5 5837?: + 00 

51805E4-0? 

.3 498 

-,11894F^01 

-.54308E^02 

. 3883 

1 «135E+01 

-.55688E4>02 

.4310 

-.246E6F*'^1 

-• 58936E4-02 

. i* 785 

3 1443“ *01 

-*61046E^02 

.6311 

-.38426E401 

-.6302ie^02 

• 5 895 

-.45578E+01 

-,64869E^02 

. -544 

5 28E8E* 01 

6650tE^a? 

. 7263 

-.6 0275E+r 1 

-•68235E^02 

. 806? 

577 (5r*0l 

-.69785E^02 

.8949 

75392F+C1 

71269E*02 

. 9934 

8309qFfr 1 

-.72701E^D2 

1. 1026 

-.90915F+:i 

-.74091E^Q2 

1 , 2239 

-.98851 E+Ql 

-•75443E^02 

1 . 

1 069?F*0? 

-.76758E^02 

1 .5080 

-. 1 1513F + 0^ 

-,78032E^ 02 

1. 6739 

1 ?348E>n? 

-.79257E^02 

1 .8580 

1 3197F+0? 

-.80425Ef 02 
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2. nt?** 

1 40C9fr*02 

-.815?7£^02 

? , ?V^? 

- . 1 49 T T 5 ♦ 0 2 

-. A?55SE«‘C2 

r’* "4!C 

-.IF016F»O2 

-.9T515E*0? 

? . n ' F 

-.IF7C5E^0? 

-. 94797E*02 

T . 1 TOb 

-,l 76r)^E«-0? 

-*9'^208E4'0 2 

I , 7 ^2 

t 95n«5»07 

-.85954E*02 

^ 

..iq4l4-"f07 

- .86645E*02 

4 • r !* 1 H 

- . 7 : 3 2 1 F ♦ C 2 

-,87?8SE*02 


71?30p^o? 

-•87093F^Q? 

‘ •27 

22l39E^n2 

-.8847SE>02 

5 ♦ -^ *5 H 

-.2 3049F+ 0? 

-. 89048E4-02 

F * i C , 1 

•.2T957F+02 

-♦89624E^0? 


-,?4eF5E+0? 

-•90?21E*Q2 

B. OQ*lrt 

-. 75772E^0 7 

-.90S57E+0? 


-.26679F+02 

-• 91558E^02 

4, B676 

-*77592t+r2 

-•9?T5TE^02 

10.95 TO 

? 9404E +07 

-.9T281E402 

1 2 . 1 579 

-.2939TF+02 

94392E4-02 

1 T. 49'>2 

T0277E^G? 

-•95753F4.0? 

1*..^797 

Til E7F f 02 

-.97454E>0? 

IF. F275 

-.T2050 5^02 

-•99615E4-02 

IB . 4515 

T ?9?5E4'n2 

-• l0240r«-03 

20 .4«F7 

-. T T796F + 0? 

1060 TEt03 


THf 

PHI 

/ HFLTA AC NUMERATOR GAIN IS 

♦ 3498E^0 3 

the 7 ?C'1ES CF 

the 

TpANSFER FtJNCriON ARE 




^EAL PART IMAGINARY 

PART 


-.4093 7930E+07 

-.48392089E*02 

-.4CP 3 7930E4'C2 

*46392099E«02 

. 37^39375E^C » 

0. 

-. 12T9 flSeTE^Ol 

0« 

17499T9TE401 

0. 

. 48T42747E-01 

0. 


THF COFP»^TnT-NTS OF THE NUMERATOR POLYNOMIAL ORCEREO FROM THE LOWEST POWER OF S 


. tD 7if?i '!7E>3? 
-♦TO m0310E + 06 
- 3ie6E*06 

-.14722565E+Q6 

♦ to** »7ft2TE+ 
,47177Q3«E*C2 

♦ tPf'OOOOOEfCl 


PHI / OELTA AC FREQUENCT RESPCN5E 5-PLANE 


FREOU'^ NCY 

ahflitucf ratio 

PHASE ANGLE 

RAO/SEC 

09 

CEFREcS 

. lOCO 

. 4 540TE»01 

34575E^0l 

. lllf 

.42?5?E*D1 

-.74998E»01 

. 1 2T2 

, T 9043F + 01 

-.11586E^02 

.1 368 

. 3 5707E + 01 

1570 3E^02 

.1518 

. T 2177E*CI 

-.19833E>Q2 

.1685 

,28393F*01 

-•23960E^02 

. t 870 

.24304E + 01 

-.28 061E«02 

. 2 0 76 

, 19868E4-01 

-.32113E*02 

. ?T0^ 

.15057E401 

-•36091E«02 
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. 9«515"-F0n 

-.39968Efu? 

,?»Tq 

.4PF51F4-G0 

-.437? lF+0? 


-.17 1C9 "♦ OQ 

-. 47325F^ 0? 

, L - s 

aca£4E 

-.5C76?‘^ + a? 

« ’I e « 7 

-.lu7a5F>!U 

5401 9P4'0? 

. -310 

1 7975 + 01 

-.57082E+0? 

. u 7 « t-; 

- . ? c n fl 7 F + 0 1 

-. 5P950F«-07 

. - ’tl 

3 557QF + J1 

-.6?6?2Ff 0? 

. ‘9 

-.443e?E+Cl 

-. 65104E+Q? 

, 

-,5??.1?E + 01 

-.67404E^O? 

, 7?^.J 

503F?F^01 

-.69532E4-Q? 

. OF? 

-,6a545E>Cl 

- . 71502E^02 

. 949 

-. 75845E»01 

-.73328F+C? 

.1934 

-.a 523?F>01 

75O?4E^0? 

1 . 1 0?6 

‘,93595E*Q1 

-.76606E+02 

1 . ? ? 19 

1 1221F+0? 

-. 780«5Ef 0? 

! . 3Fh5 

-,l lO«?F + o? 

-.79475E»02 

1. ' cec 

1 1947F+0? 

-.80787E>02 

1 . r 7^0 

12817F+0’ 

-.82030F» 0? 

1 . 9590 

-,l 36915^0? 

-,83214E»0? 

? . ] 6 ’4 

1457QE+0? 

84345E4- 02 

?, ’99? 

1 545 3E ♦' ? 

-.85433F*02 

? .'4tO 

-. 1 5339E+0? 

-. 8F486E^02 

? , 9?0tJ 

-.1 7??7F+C? 

-.87510E+02 

3. 1 30P 

1 8117F^D? 

-.88517E^02 

3.-75? 

193Q9E*r? 

-.89514E>02 

1. 9-; 75 

-.1990?l*C2 

-.90512E^02 

4 .?91 9 

-.7 0794E + C? 

-.91522E4 02 

4, 75?9 

-.?16»7E^0? 

-.9?555E^02 

5 , ? 7 * f 

-.??5?3E* C? 

936?5£402 

5 .9559 

-,?3467E*0? 

-.94745E402 

f , 5 ori 

-.24354F+0? 

-.95 932E^02 

7. ?1M 

?':?37E«‘07 

-,97?04F40? 

9.0099 

-.’F116EF3? 

-.98590E*C2 

a, 9997 

-,?5988E*fl? 

-. 10009E«>03 

9. ■«5 7£ 

7a53F40p 

-♦10176E>03 

IC ,9530 

-,?57C9E>0? 

t0362E^03 

1?.1579 

-.79557F+07 

-. 10573E4 03 

13.495? 

3138?F*-0? 

-.10«15F>03 

14 .9797 

-.3U93F + C? 

-. 11094F^03 

15. ■;?7'" 

3 1983'^*0? 

-. 114?1E>01 

1- ,.555 

^ 5749'‘ + 0? 

-. 11811E403 

? : . - fl f 7 

3 T497F+P? 

-.1228 0E4-03 

THF 

4V / OELTA ftC 

NUMERATOR GAIN IS . 296?F<-04 

THE 7'- cCF5 OF 

thf transf'^r function 

ape 


rfal part 

IMAGINARY PART 


-. 1?:? ^27iE*n? 

-.15019465E^C2 

l?0?3271E^0? 

. 15ni94E5E*’02 

10952181E + 02 

0. 

7C47 17?5E»00 

-. 9742937EE4-00 

-, 7C-71725F+Q1 

.97429378E*CC 

. 79P64692F-0? 

0, 

-. 10 0 00000'^ >0? 

0. 


THr rr,«^FFIC IENT<: OF the: NUMFRATOR polynomial orcepfd froh the lcmest power of s 


- ,4F ♦na 


OWGWAlPf^ 
OF POOR <JOAW^ 
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. ■^ee^r-sf + 05 
( oCTCftf ♦05 
, t 1 

, 104H3u5?^ + 0t4 
. ^6 **lG17?‘^ +0? 
,ic ..coacc‘^ + 0 1 


iv / nriTA ftc FP‘^Qu5NCy P5*f;pcNSE s-plan^^ 


FPEOU'KCY 

a><plitudf cattc 

PHASE ANT.LF 

PAD/ ^ Ft 

D H 

DEFR66S 

. 1 000 

.77610E^C1 

-.20 5456^03 

.me 

. 7C046E+ri 

-.20775E»03 

. 123? 

. 6674RE + 01 

-.21022E403 

.1356 

, 65?73Ef01 

-.21283E^03 

.1516 

. 533?6E^01 

-.2t558E^03 

. 1 6H5 

.6 00135 + Ct 

-.21844E^03 

. 1 6^0 

, 56145F»01 

-.22138E*03 

.2075 

.51737E601 

-.224376*03 

. ’30 5 

.46758 E + 01 

-.22738E*03 

, ’558 

,41ie7E^01 

23036E^03 

.7839 

, 3 rOOBE^Ol 

-.233276*03 

. 3152 

.?82inEtQl 

-.2360 6E*03 

. 3*.P6 

,70790 E + Ol 

-.238686*03 

, 3 66 3 

, 1 2745E3-CI 

-.241086*03 

. -»310 

,407676400 

-. 243196*03 

, -»765 

-.519976400 

-.244966*03 

.'311 

-.1 50706401 

-.246296*03 

. V ft :>5 

-,754886401 

-.247086*03 

. t “t.4 

3 5373F4f]l 

-.247226*03 

. 7 7^= 3 

475746*01 

-.246586*03 

. ftOr 7 

88466401 

-.245026*0,3 

.69^9 

698166401 

-.242446*03 

. 3 031. 

-.6 00006*01 

-.2,388 66*0 3 

1 . 1 075 

-. ft F874E401 

-.234426*03 

1.2739 

-.960406*01 

-.229476*03 

1. 3 5'*5 

-, 1 0140E* 0? 

-.274446*0 3 

1 .^ 0 ■‘0 

-.1 0520E*:’ 

-.219766*03 

1. . ?39 

-. 10792E402 

-. 21566*^*03 

t .6560 

1 10126*0? 

-.212226*03 

2.0 FPU 

1 l?2?t*0? 

-.209346*03 

7.76^? 

-.114546*0? 

-. 206876*03 

’♦“910 

1 17236407 

-.204616*03 

2.H206 

-.1 20356*02 

-.20 2386*03 

3 . 1 3Cft 

-.l?3fl76*07 

-.200026*03 

3. sr75 7 

1 77 7,?6*0? 

-.197406*03 

3 ,6 575 

-.1 31826*0? 

-.194426*03 

7 61 R 

-.1 36036*0? 

-.190986*03 

752R 

-.1 9023E*02 

-.187036*03 

:-. ?7»^6 

-.144306*0? 

-.182516*03 

5. 85*39 

-.1 48106*:? 

-.1774?E*01 

6.5001 

-.1 3150 6*0? 

-.171686*03 

7. 7151 

-. 1 54356*0? 

-.165296*03 

a.ooftft 

156566*02 

-.158276*03 

6. ft 897 

-.1*^7956*0? 

-.150596*03 

9. ft676 

-.1 58386*02 

-.142276*03 

10. 99 .30 

-.157656*0? 

-.133316*03 

1?, 1579 

-.1 55526*0? 

-.123756*03 

13.9952 

-,l 5169 6 + G? 

-.113656*03 

14.9797 

-.145776*02 

-.103176*03 

16,5775 

-.137346*02 

-. 92 5986*02 

Ift. '*5f 5 

-. 1 76056*0? 

-.824096*02 

2C . 9667 

-.111756*07 

-.7,32406*02 
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THE 


POLL -ATE/OELTfl PC NIJmf:PATOP GAIN IS 




iHftGiNftPY PART 


Thf /.pops op ThF function A-’f 

PFAt PART 


ioca')30os + :.i 

- . ?5 : fn 0 0 0 p r ’ 

. e n ? 39PTE + 01 

-.lOOOOOOOE^O^ 
lEDO 673lEf ni 

14J33776F-1? 


THE COEFFICIENTS OF THE NUHFPATOP 


0 . 

0 . 

0. 

0, 

0, 


POLYNOMIAL OPCtR^D FROM THE LOWfST POWER O'" 


- . /Eogenao F-C9 
- *r 3=?43 CFEf04 
-.F7f^4?0 14E + 04 
- *l?b45?C“ ' ^04 
« lf>q643?ePFQ? 
. T3390?’*\=^4-0? 
«10000QOOE+Ot 


'^hll RATE/qelTA PC FREOUENCY RESPONSE S-PLANF 


EPFOtt^- Nry 

AMPLITUDE FATIO 

PHASE angle 

PAH /SET 

n q 

OEFREES 

♦ 1 12C 

-.1 7819E fC? 

-.79895F+0? 

.1110 

1 7975E^5’ 

-•31742EFQ? 

. 1 ?T? 

1 8ie?F40? 

-•33797EF 02 

. 1 3f,P 

-. 1 3383- ♦T? 

-.36047EF02 

• 1518 

-.1864?EFn? 

-.38473EF0? 

, t fc8F 

1 9941E ♦O? 

-.41056EF0? 

.1870 

1 9284EF0 ? 

-.43767EF-02 

. 7S 

-,l 9672EF0? 

-.46577E+a2 

, OTl^ 

? 0105E+n? 

-.49456E*02 

• ?5S8 

-.20585EF02 

-.52 371EF 02 

.7839 

7 HOPE FP? 

-.5S793F407 

.315? 

-.?lb76F4C? 

-.58191EF0? 

. ^498 

? ’283EFG ? 

“.61051EF02 

.38«3 

? 2927E* 0? 

63849E^02 

.-3in 

-.?36Q3FfO^ 

-,66577E^02 

.4785 

^ 4310EFO? 

-.69232EF02 

.5 311 

-,?E04?F+:? 

-.71816EFQ2 

. 5 8^5 

-.75798E+0? 

-.74337E402 

. o 5 4 9 

7557UEFC7 

-.76R05E^ 02 

. 7?f.T 

-.? 7371E + 0? 

-,79232Ef02 

ne? 

? 3187E+ C7 

81631EF02 

. p 949 

-.?9Q??F«.07 

-.84010EF02 

.9034 

-.29876E+0? 

06 374EFO2 

i , 1 0 ?e 

3 07E?F + 0? 

-. 88719EF02 

1 . ?? *:9 

31649EF0? 

-*91035E^02 

1 . T585 

-,3?5£8F+C2 

-.93302EF02 

1. E 080 

-. 3 35Q7EF0? 

-•95492E4 02 

1 . F 7 39 

-,3:*4e3P+0? 

97574EF02 

1.3580 

35431EFr? 

“.99511E402 

: 5?4 

364Q4FF0? 

-.10127EF03 

2 .289? 

37373^+Q? 

-. 10 28 2EF- 0 3 

? . 5 4 1 0 

3 83?7FfO'» 

10413EF03 

?. 3206 

39?53£f0? 

t05?0EF03 
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^ • 1 ? : e 

♦ n 4QF + r? 

-.1 ''eooE^oi 

7*47'“? 

*09 74E* 0? 

• . loe^sE^os 

3 . 

-.4174?F»Q2 

10650E4-03 

4*?81» 

**?433::f 02 

- . 106«2F4fl3 

4 • 

-.4‘*0’F, = *r.3 

1P€58E^03 

5.?7-6 

4 354’E + O? 

10611E^03 


-. 4 3949E + 0? 

10541E»03 

e. “ coi 

4423?'^ +0? 

- . 10449 E*03 

7 . " r.i 


IC337E+03 

a. 

44463 *C ? 

-.10208E4-03 

fl •aa97 

4*400 ■ +0? 

10063E^03 

9. aa’6 

-. *421^“ ♦0? 

-.99091E* 02 

10.^930 

43916^ +o’ 

-.97508E*02 

1 7 , t F 79 

-,434gpiE*0^ 

-•9F962Ef02 

13. 4 9‘ ? 

4’9E6f +02 

-•94555E+02 

l^. .9 797 

-. 4?324F+02 

93413E^02 


4 1 57F*^ ♦■02 

-.92700E+02 

. 4SFr 

4T 7?c- + ^ ? 

-. 9?6?4E»02 

20 . 46F7 

3 97R0- ♦[?? 

-,93499E^02 

THE 

YAW FflTc^ /OFLTA RC 

NUMERATOR GAIN IS -.3714E+04 


TME 7ER0F. OF THF T'^^NSFER FiJNCTTaN ARF 


crflL pflPT 


THfiCINARY P«RT 


. lOOOOOOOF+Ql 

. lF'<m? 9 E» 0 ? 
. lc:0 00Q0F*0? 
. F7E? ^717F-tU 
. F7r ?371 7E-Q1 


0 . 

2<i557545F + 02 
. 2 <» 55754 FP*CZ 

0 * 

- 41681690 FE* 00 
•16816906F+00 


THF F OF FF ro I ENTS OF Tht numfrATOR POLYNOMIAL ORDERED FROM T Hf LOWEST POKER OF S 


,?777777<^r f 03 

♦ 145 HC 80 ^f *04 

. ^ 79 t 414 ie+C 4 

• '^7 791 '^C 0 E+P 4 
, 120435F2F+04 
.-?297316F^0? 

♦ 1 CCCOmOE + Dl 


yflw PATE /OELTA PC FREQUENCY RESPONSE S-pLANF 


f»eQU ncy 

ANFLITUCF RATTC 

PHASE ANGLE 

PAQ/FEC 

3 9 

DEFREFS 

.10^0 

19086F*02 

-.90021E^02 

.1110 

-.^3924E>02 

-•86391E4>02 

. 1 

22C21EF02 

-•81366EA02 

.1 3f fl 

-.2 3-17E*02 

-.74458E^02 

. 1‘" 18 

?H 888F+0? 

-.65099E^02 

, 1 

-.2 5920F + Q2 

93317E*02 

. t 87 C 

-.26307E+C2 

-.40252E^02 

.2Q7F 

-.26274E+Q2 

-•27954E^02 

.? 306 

-.’•:723Ef0? 

-•18026E402 


-. 24978F+ 0? 

-•1O059E*O2 

,2839 

242C5r+C? 

-•6C623E^Q1 

. 31F? 

-,?34eFE*02 

-.3C594E*01 

.34T‘» 

22848F+02 

13528E+01 
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, ^ « ®3 


-.57444E400 

« M 3 1 <“ 

^ lft4l "f O'* 

-• 466P7E+0 : 


lui-f ~ *n? 

-•8^425F400 

, -Ml 

- , 7 1 I 4 D F V 0 ^ 

16101E4-O1 

. S if-. 

-.?nftft3"f0? 

-.2E800E* 01 


- . ^ G 6 ^ G f ♦ T ? 

39885 - ♦01 

, ^76.3 


5F104Ef01 

* «0^2 

? 041“ F + 0? 

-,72233E^01 

. “ 949 

-.7Q3tc,r>o? 

-•91100E^Qt 


- . ’ 0 3 L 1 F ♦ 7 ’ 

-.11153F^0? 

! , 11?F 

’C374F+ G? 

13332E^0? 

1 ,7739 

-,?n4E7C4.o? 

-•1FE20E+ 02 

1 . 

’ ns OF r + fj 7 

-•17987E+02 

1 , 

2 078ftr* 07 

-• 20 37 7E^ 07 

1. €739 

-.2 1039E+G7 

-•22753E+07 

1 . ftFMO 

21347£f^7 

-,2?057E^02 

2, 0«^74 

-.2 1 71? E + C7 

-.27234F^C? 

7 . ?So? 

77130E+0? 

-,29228c^02 

? • '5 4 1 0 

?7597E*C^ 

- .30986E+ 0? 

? . ft ? C fe 

-. ? 3inftE + G7 

-•32463E+0? 

3 . 1 THft 

-. 7 36S7F + 07 

•. 33620E> 02 

3 , R 7 -■ 7 

^ M737EtC7 

-,34423E^02 

.5, ft? 7E 

-,7lft39E+n? 

-.34S51E^Q2 

*♦, Pftlft 


-,34a85E^0? 

4. 7G?P 

- . ^ F 0 p ^ c 4. q p 

34510E+O2 

E. '»7=e 

^67nr+0P 

33748E*0? 

C , H ' 9 

’7331 E+0^ 

-.32580E^O? 

t . ^ 0 M 

’ 79U1F4C2 

-• 31025E>02 

7. 2111 

-.?8533E*02 

-.29099E^02 

6 . Gfl ft 

^9104F402 

-,26822E407 

ft , ft ft9 7 

’ 964 9F+n7 

-,24?17E^a2 

9 ,>-£7f. 

■* 71 eft£4 02 

21307E^0? 

10 

-, 3 06E7FfO;> 

IH114E^0? 

1 7 . 1 "= 79 

-. 3 111S'4G? 

-,l4655E+02 

1 3,49'? 

3 1S40F + 02 

10941E^ 02 

14,9707 

3i927F + rj? 

-,69774E^01 

16 ,6?7F 

-. 37 ? (9E+C2 

-.27709E^01 

Ift.-SF*- 

3 7E35F +02 

. 16525E*01 

?n , .* R47 

3’705H402 

. 6?035E^01 


THC nrjfl /n-LTft or NUMeRATOR GAI^ IS • 4375 E «-02 
THr 7 "P 0 CS OF T HP TPArSF^p FUNCTION ARE 

REAL PART I 1 AGINAPY PART 


. 1 COOOOOOE^Ol 
, M 45 E+-C’ 

, 15 F 6437 PE +02 
•lE 66437 qE+ 0 ? 
, 1G00QO30E+C? 
, 3 f<FR40EE E-0? 


0 . 

0 * 

-. 246 E 2 B 80 E *02 

• 246 E 28 Q 0 F^fl 2 

0 . 

0 « 


THE Coefficients of the numerator polynomial orcereo from the lowest power of s 


-.28297C ^3E*CU 
. 7 ? 4 ? 91 F 7 '^ + 0 E 
, B 35105 18 ^ + 06 
,11 ^<^74?9£ + 0e 
. Mfll69837E«-''4 
. 127FC 3E1E + 03 
, ir noooooE*oi 
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Pr T A 

/H''LT4 RC FREOUENrv 

P'EPON*'"^ '“-PLAN'’ 

KC Y 

AMPLTTUnE PATIO 

PHASE ANGLE 



m 

0EFRE5S 

* t ocr 


74410"*C1 

-.20833E403 

. iiir 


7599?Ff 01 

2l044c*03 



-.77884'^^01 

-•212T8E*03 

. 1 36« 


8 0119E + n 

-. 21529E*03 

.151? 


-. 8 ?734C^f 1 

-.2179a€^03 



8 5 758E+ 51 

-. 2?Q91E>03 



-.3 9? 2QE + 0 1 

-.??378E*03 

. ?Q76 


93l39Ff0l 

-.226«4E*Q3 

, 


1 75P6E+01 

22997E*01 

. ?5'a 


-.in23BP^5? 

-.23114€f03 

. 


1 0770 E + C2 

-.?3633E*03 

. 3 1":? 


-.1 I3t*6 E^O 2 

-.23951E^03 

, 


1 19E4E3-07 

-.2426SE 401 

, 3 


-.1 ?6??E^ j? 

-.?4576E^03 

. ^310 


1 3U5E + 02 

-.24882E403 



-. 1 4042E+0? 

-• 25182E»03 

. 5 31 1 


-.1 i.799E>0? 

-.25478E403 

. ^ S95 


-.155?6E^C? 

-.25770E40S 

• c S ■♦<* 


-.164C1E^0? 

-.26061E^03 

, 72 ^^ 


1 72A3E+0? 

-.26390E^03 

• ?3*-? 


-.18116E*D? 

*.26640E^ 03 

. ?9^9 


1 90 23E + 0? 

-.26932E*03 

.9931* 


l99E9‘^t32 

. 87744E> 02 

1. 10?6 


?0938E>0? 

.84785F^02 

1 . ? ? 39 


-.2 196C«^3-0? 

. 81019E^O2 

1. ^ 5 -^' 


-.23029E+0? 

.7?871E»02 

1 .‘■' 


-. 24150E3-02 

. 75973E^02 

1 ^39 


?53?3P4C2 

. 73167E^02 

1 , ? 5 a 0 


?655?‘" + 0? 

.70502E^02 

)t?4 


7 78 34P 40^ 

.68028E402 

2. ?-*^? 


2^ie7r40? 

.65796^f02 

? . = 41 D 


-. 3 05A7F40? 

.63655E402 

2. 820^ 


1 1970 E»02 

.62250E4-02 

3, K3Q« 


3 34?9E3‘02 

. 61017E^02 

3 .**7:? 


-.3**917E»0? 

•60183E402 

3.8675 


3E428F4 r? 

.5C786E^02 

4. ?ftl8 


-. 3 795'»P*02 

.59027E*O2 

4. 3p?«^ 


394R4E4C7 

.60 321E>02 

5.?7"^6 


-.4 1016€*02 

.ei270E^02 

5.8599 


-7541E + 0? 

.62671E<^02 

6.5 OCl 


-*4053«^40? 

. €4516E^02 

■^,2151 


U5546E+0? 

.66791E^02 

8 , 00'*8 


-.47017^+02 

. 69479E^02 

3. 8897 


-.48460E*0? 

, 72562E4C2 

9. 8676 


-.49874E>0? 

. 7E020E402 

in . 9530 


-.51256E+0? 

.79 836E* 02 

12. 1 579 


-.5?604E40? 

,83999E^02 

13.495? 


-.53915‘^4(]l? 

• 8?504E«>02 

1^. 9797 


-.55183r*o2 

-.26665E+03 

lb.6?75 


-,56398£40? 

-.261**6E*03 

18. **565 


-.5 753«E*0? 

-.25595E^03 

2C. -.867 


-.5 8573rfC? 

-.25020E^03 

THE 

PHI 

/OELTA RC 

NUMERATOR GAIN IS 

THE 7- ROES OF 

THE 

transfer FUNCTION 

A»E 


.ieoiE*a<i 
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:-r c^i O^pj 


IMAGTM 4 RV OflPT 


- . 1 r n a :i 0 : a “ ♦ r 1 c . 

. ^11 ? ^ 9 'T'^' ♦■n c. 

-.?‘^03QOOO^*1? 0. 

lF+01 0. 

K']OOD':!3r' d. 


':oE PFIC UNT'; OF THE NUHFRATOR POLYNOHIAL OROFRED FROM THE LOWEST POWER QF S 


- .FT 5?4-<^E. ■♦(}*♦ 

- .’>7 S4?')mr^Cu 

- .l?eLr?C6r*04 
. leoEwo ?«r +0 ’ 
. T7 

,ICCCC0CPE+CI 


•’’MI /O'^LTA RC FP'OUENCY response S-PLflNP 


FRtQUrNCY 

Af-PLITUDF RATIO 

PHASE ANGLE 

RAO/'-Pr 

09 

CEFREES 

. nso 

. ? IftOSE+Ol 

11P93E4 03 

. 1 ii^ 

. 1 llfllE+01 

-•12175E403 

. 1 ? 

, 3 4909E-01 

- .12380E403 

, t 

1 1 0?6E* 01 

1?605E^Q3 

. 1 -1 K 

-. P?6 77E + 01 

1294854 03 

. 1 *^-^5 

-. 3 4736F+01 

13106E^03 

. 1470 

-,^72?6E^01 

-•13377E4D3 

.7n7F 

-.50ie^F + 01 

13658E4 03 


7 35EftE+0l 

-.13R46E403 

« ^ EFft 

-.4 74?7E^01 

-.1423SE4 03 

. T9 

-. 1l;173E*03 

-.14530E403 

. TIF? 

-. U647E40? 

-.14a20E^03 

, ^49fl 

1 3lF0E«-n'» 

-.15106E403 

, T fl 4 T 

-.t47HE+0'’ 

-.15396E4C3 

*4T10 

-.1 6?94F. + C’ 

-.15650E403 

. w 745 

1 790bF402 

1F924E^03 


19545 E4C? 

-•1F182E+03 

. 5 49E 

-,?l?0 7r-40? 

-.16434E403 

. f ^ 4 4 

- • ’ 29 9 1 r? ♦ 0 ? 

-.ie681E^a.3 

. 7^ >3 

’4594E402 

16924EF03 

• 4 05? 

-.’631EF40? 

17164E403 

. 49U9 

-,3«Q57F 40? 

-.17402E403 

. '914 

-.?9919F^0? 

-.17638E403 

1 . 1 ■ ■ ?t 

3 16ClE4n? 

-.17ft73EF03 

1 , ??19 

-. .3 3404E4Q? 

-•18102E403 

1 . 

-.3F230E4C2 

- . 19328E403 

1 . ' “ 0 

3 70 *r]? 

“,19547E4C3 

1 .E 7^9 

189T9F4 nr? 

1 0755E4O3 

1 . 4540 

-,^0ftl?E40? 

-.18949F403 

?, OF ?4 

4?692F40? 

-.191?5E4^03 

? ,? P9? 

-.^4567E4D2 

19280E4'D3 

?. •'41C 

u E4?7E4 0? 

-.19411E403 

? ,e ?0F 

-•4H2E0E4C2 

-.19518E^03 

3 • 1 3 : ft 

5 00 FT F40? 

-•19598E403 

3 . u7' ? 

-.51793E40? 

-.19651E»03 

3, 457? 

-.53469F+J? 

19678 E4 03 

4*?416 

-,55065t403 

19680E403 

4. 75?ft 

-.5o57FF + n? 

-.lf656E403 

E . ? 7 " 5 

-.579«7“4n? 

-.19609E403 

5F 9 

-,59294F4r? 

-•1E539E403 

- . : Of'l 

-• 6 0491*^4" ^ 

-.1944YF4-03 
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7.2151 

F1571‘^<-0? 

l93?5E^a3 

ft.GO'ift 

-.o?c^4r + o;> 

-. 19?06E«>01 

a . "-a^7 

-,o'’3?7E*C’ 

-. lEOeiEfOT 



-.1 “90 7E+03 

10.^E30 

F *7 DEE^n? 

- . 1 «74 9E<-0 3 

1?. 13/R 

'19'^ E + C? 

“.ia594E4>03 

13. 4R'? 

--■571'^^07 

- .ia453E«-03 

1U,D7'A7 

-,‘>Ea34F + r? 

-.1 ‘339F* 03 

IF, 6?7E 

-. 8:.9«2E+n? 

-•l«26aE*C3 

la • 45F5 

-.F£Ci*aEfC? 

-.1F?60E*Q3 

20. 

>-'05 9^^ 

-.ia344F*03 


Thf ftV /riFLT4 or NUHFR4TOR GAIN IS -.1671Ef05 

THE 7£R0Er or THE TRANSFER FUNOTION ARE 


« ■ A L 0 A p T 

IMAGINARY PART 

-♦ lOrOO^nOE + gi 

0. 

-,19^E31i<7F + T? 

363961EtE^0 Z 

-,19:A’147E*0? 

. 363961E1E*0Z 

42281?a6r+ nn 

0. 

• EL-*/ 3431 --T? 

0. 

10t.G OOanEfC? 

0« 


THP COFFFrniENTS OF THE NUHFPATOR POLtNOMIAL ORDERED FPQM THF LOWEST POWFp OF S 


.70H0i*S?VE>0L 

.?5lie6ft?E*0S 

.?DllimE + 0F 

. '*1 74271RE + C4 
a 7?3T?0E*C? 
. lOOOOOOOF+01 


Av /DELTA FC FREOUENCT RESPONSE S-PLANC 


FREQU- KOV 

A FFLI TUCF RATIO 

PHASE ANGLE 

R AO/StC 

1 9 

CEFREES 

, tone 

. 43395E+01 

-.14232E+0Z 

, 111 c 

.42791E+01 

19074E^02 

.123? 

. 1536F + C1 

-«lS968EtOZ 

, 1 3c3 

.4007SE^C1 

-«16899E>QZ 

. 151 a 

.^3AO''E + Ol 

-.17846E^0Z 

. lee'" 

. 38508F* 01 

-.1 8785E+02 

.1 a'^c 

, 34403E*01 

1969ZE^02 

. '» 0 76. 

. 371Q?E*3l 

-.20542E^02 

. 2309 

. 29630E+Q1 

-• 21310E+02 

. ^E^8 

. 70 23E+01 

-.Z1978E*Q2 

.23 39 

.7u328E^01 

-•22533E*02 

, n-5? 

, ? 1593E4>01 

-.22969E+02 

. 34 H 

. 13873E^C1 

-.23?91E^02 

, 3 333 

.lF?lEr*01 

-.23520E^02 

. - 3 1 n 

. 1 3€F7E^01 

-.236T4E>02 

.4735 

, 112E8E*01 

-.23787Et02 

. -^311 

. ?n055E^00 

-.23899E>32 

. 9395 

.59117E+00 

-•24049Ef02 

. €544 

,‘^9611E + 00 

-•24289E«02 

, 7?f 3 

. 3 1?11E*00 

-.2462 9E»02 

, = Of ? 

. 1 3440F*00 

-.25128E*02 
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. 0E49 

3 129E-01 

-.260o?rfO? 

, 99 T4 

-.7?7EEr40Q 

- .266E56+ 0? 

1 . 1 

4’6E7E ♦OQ 

- . 2771 7E*0? 

1 . 2 ? ’Ca 

-.64773 6 ♦OP 

-.?‘'947E*-02 

1 . 

^ iP43- 

-.3C33 1F*02 

1 . :> 3«c 

1 1 P4P ?♦ n 1 

- , 31 03OF4-O2 

1 . ' 739 

l vl IPE+Cl 

-.33400F»02 

1 . - « 0 

1 p »<??■♦ 01 

-.34qfl6E*02 

r . 0 f 

??97?E^Dl 

-.36532F+02 

2 . 

-.7 7661 E>ni 

37q82E+0? 

? . ‘ 4 t 0 

-.3?>Pt E^Cl 

- . 392« 1£*0? 

6 

3 793?r+ n 

403P3E*02 

- . 1338 

-.>.36?IE + C1 

41246F4-02 

3 . 4 7 r ^ 

^ 956.6E + 01 

-.4l838FfQ? 

3 , H ■:7E 

9 = 69964 01 

42134F» 02 

? M P 

-.5l9Eir>''l 

4?119^>02 

4, 7i?A 

-.Ep’^OF^ri 

-,41787F«'02 

"> . 2 7F8 

7 *5?7^4ni 

-•41140E^0? 

V .‘^5^9 

-.p ?7i ^6+ ni 

- . 40 187Ef02 

031 

-.3676^ 1 F*ni 

36947F4-02 

7. ’1=1 

9 + o 1 

3744-7E4-02 

, 0 

- , 9 4 ? 0 " F ♦ 0 1 

3372lFt 02 

P . P P 9 7 

-.11 

33810F^02 

9 . 4 876 

-.1 ■‘ftF7 = ♦ r;2 

-.31762F4- 0? 

IK, 96 tc 


29631E+02 

1 2 . 1 = 79 

1 1 77P =4-02 

274'76E^02 

1 3 , 49-‘ ? 

t ?19P 6409 

-•2E362F4-02 

lu, 47:^7 

1 2 ♦ 0 7 

-.?’361E*02 

15 ,f 276 

1 ’9 75 F+ ? 

-.21553F4-C2 

1 P , 4 = 

1 3340,' + 0 ’ 

-. 2003 1F«*C2 

?0 . ^P-:7 

-.1 3697-40? 

- . lR914E«-02 

TH=- TCA^JSTTT^N 

M-T^IX 11 

Tr RM^ 


Q = 


35P5F ♦ 00 

00 

-. 44 10E+ 00 

, 9217E-01 

*3458E»01 

,6567E*02 

1 73 4^^ 01 

. -»qr ♦ '1 

. 0 G 

2360E*'00 

.6289E^C1 

2095E+-0? 

UEI 6=- n 

-. ^o4C - r 1 

, E73(]E^ DO 

. 1148E-01 

-.1452F+00 

. 7171E+01 

24256-01 

- ,96 5 4 - 

- . 1*4126-01 

. lOOlE^Ol 

•2046E*tC 

. ireftE^oi 

1 9 4 - 0 1 

, 16 2p - 11 

, 1 P68F- 01 

2052E-02 

.3643E-01 

-.?376E^C1 

2 -01 

-, 2'^6 0 — n 

, 1 6'''3'=- 0? 

, ■'461E-02 

1172E+C0 

. irosF^oi 

6 3-3 0?+ 1C 

n 1464 r,i 

, S615F- 01 

. 1186E«>D0 

-.4q97F*C 1 

,5005E^02 

2 4’ 3: - 0 1 

, ^4676-11 

, 1 160 = - 11 

- . 3172E-C2 

.6630E-01 

-.4648F*^01 

3 3^ Q 6 f DO 

, 47?qr* no 

- . 2 3l’r - 3 1 

-.E4?4=^-01 

.1974E*01 

2?26Ef0? 


TIME 

ROLL ^AT£ 

YAW RATE 

nET A 

PHI 

AY 

C. 

0 . 

0 . 

0 . 

0 . 

0 . 

, Ef’ Q-- Q 1 

, ?rQ "- 11 

=23E-Q1 

.132F- 02 

.293F-C3 

-,276E*00 

. 1 :6 + ir 

. 1 29 - ♦ ''1 

41 3F*0 0 

, 150E-C1 

. 34fF-02 

-.250E*Q1 

, 1 :i = + CO 

. 6 icr+ [)o 

219E + 01 

.qciF -01 

, 191F-0 1 

-.137E+02 

. ?:ot ♦nr 

, 3 C3F+ 01 

110E+ 02 

,460E«- 00 

. 950F-Q1 

-,692E*02 

. 2 .' 0 -*+ CD 

. t 4°=* 02 

-.5 4?F^0? 

.234E*p1 

.460E»OC 

-.343E*03 

, ^ L 0 F ♦ D l' 

, 7 3 3f ♦ 1 ? 

267J^^ C ^ 

. 115E4-D2 

.230F+01 

-.169E^04 

, 3 - 0 6 ♦ 0 C 

. 3 f 1 F ♦ 0 3 

1 ^1E+ 04 

.568E*-02 

, 11 3E4’0 2 

*« S30E4-Q4 

. 40 or ♦ 00 

. 1 77=+ 1^ 

645 E4-04 

.2B0E+03 

.557E*Q? 

-.408E*Q5 

. 4 ^ 0 =+ no 

.fi736^04 

■’17F» 05 

. 1 37F* 04 

. 2T4E + 0 3 

-.201E*06 

. E C C 6 + CC 

, 4?q=4 - 1 3 

156F+06 

,676E^04 

.13EP+Cfc 

-,988E*06 

. 3= nr + 00 

.21 !=♦ 06 

76ar4 Q 0 

. 373E+-05 

. 663F>0 A 

-.486£f07 

, 60 QF^ 00 

. 1 0 4F+ 0 7 

3 75 6407 

, 164'’ + 06 

. 326E+Q5 

-.239E+O0 

, 6 6 0 = ♦ n 0 

. ' 1 ! = ♦ 0 7 

1 « 6 F^ 00 

. e05Ef06 

• leOEf^Ob 

-.118E^09 

. 7 J 0 r ♦ ■! 0 

. ?E 1 £^ 05 

- . U4 = fO fi 

,39EE^07 

, 789E+0E 

-.578Ef09 

, 7 = o=> : 0 

. 12 4"^09 

-. 4 rop 4 1 9 

,195E»06 

.388E+07 

-,?e4E*10 

. p 0 Of +00 

. f 0 fl ♦ 0 9 

’21«^4 10 

,g=8F^06 

. iqiE^OP 

-.140E411 

. p " ] : ♦ c 3 

, 209F + 10 

ia9E+ii 

.47ie*09 

.939F*0 5 

-,688E*11 


.10 36E»01 
-.?887E+01 
.8679E-01 
•2086E*01 
-.30 29E-Q1 
.29:2E“01 
.6ft99f*00 
-.5180E-01 
00 


DELTA AC 

- 0 . 

- 0 . 

- 0 . 

- 0 . 

- 0 . 

- 0 . 

- 0 . 

- 0 . 

- 0 . 

- 0 . 

“ 0 . 

- 0 . 

- 0 . 

-0 . 

- 0 . 

- 0 . 

- 0 . 

- 0 . 


-.20F7E-01 
.5190E-01 
-.1306E-02 
-.2898E- 03 
•U516E- 03 
-.7794E- 03 
-.2824F-01 
.9519E» 00 
. 31^ IE- 02 


DELTA 

.IDOEf 01 
. lOOE^ 01 
. 100E*01 
, lOOE^Ot 
«100E* 01 
.lOOEf 01 
,100E* 01 

• 10 OE* 01 

• lOOE^ 01 
.100E»Q1 
. lOOE* 01 
. lOOF*” 01 
. lOOEf 01 
. lOOFt 01 
.lilOEfr 01 
. lOOEi' 01 
.130E* 01 
.100E*01 


.7287E+C0 
-,l'347c *01 
.L717E-01 
,lC55E-ni 
lC3eE-01 
.2f e6F-01 
•8943E+00 
-.?*=niF- 01 
.490 3Ef 00 


209 



90 0*^^ OC 

. 1 4/c* 11 

-.3’9r:<*-ll 

.?3?Ff 1 0 

. 46?F^05 

-.339F41? 

-e. 

.lflOE4 01 

gc :c + £.p 

. zpv:#- 11 

-.263 -♦I P 

. 114F^11 

.2P7E+10 

-.167E41 3 

-0. 

.100E> 01 

10 0--4.01 

.^*^6^+1? 

-. IP9F+ 13 

. 561E»ll 

, llPE^ll 

-.819E413 

-0. 

• 100E4 01 

01 

. 1 75f ♦ 13 

-.637F+1 3 

.276F+ 12 

. 550F411 

- .40 3E414 

-0, 

.100E4 01 

1 1 o<^+ ni 

. oei-f t? 

-. 31 3F414 

. 1 36F^13 

.270£^12 

-.198E415 

-0. 

« 100E4 01 

11 3T + C 1 

.4P4- 

-. 194F^ 15 

.6c7F^ 13 

. 133E^13 

-.975E415 

-0. 

.100E401 

1 >0F.* Cl 

.poaf +15 

-.753F4-15 

.3P8F»14 

.654E413 

-.480E41 E 

-0. 

. 100E4 01 

i?5ff ni 

. IQ2-+ 16 

373F4- 16 

. IFIE^IS 

. 322F^1 4 

-.236E417 

-0. 

.100F401 

1 1 

. ' 0 4“ 1 S 

-.133^+17 

.7Q4Ffl5 

. 158E^15 

-.116E4ie 

-0. 

• 10OE401 

M5f+M 

.Pi-P=<^17 

9C2‘"+ 1 

. 391F^16 

.778E^15 

-•571E418 

-0, 

. 10064Q1 

1 4(3 ‘^♦Cl 

,i2Pc*te 

444F* 1 a 

.1925+17 

. 38 3E^16 

-.281E419 

-0. 

•10QE401 

ImCT* 01 

. f 00-> 18 

-.21 3E^19 

•945E^17 

.1«8F^17 

-.138E420 

-0. 

, 100E401 

Of ♦ Cl 

, P95F* 19 

-.107F4-P0 

• 465F* 18 

. 92fE4l 7 

-.679E420 

-0. 

•100E401 

l^j^f+Cl 

. 14S-4-P0 

-.52a£f?0 

.2?9E^19 

.456E418 

-.334E421 

-c. 

• 100E4 01 

1-0F4O1 

.71 4^f?Q 

-,?60E^P1 

. 112E^20 

, 2?4E^19 

-•164E422 

-0. 

•100F401 

1 '3^=^ ♦ 0 1 

. 3F1: f 21 

-.128E+2? 

.5 C3F^?0 

• ItOE^ZO 

-•8O0E422 

-0. 

.lOOE^ 01 

17 OF+Ol 

.173- + 22 

-. 6 28Ff ?? 

.27?F^21 

.542Et20 

-.398E423 

-0. 

• 10064 01 

l^5f ♦?! 

.ftF0-*22 

-.in9F^23 

.134P^?2 

.P67E+21 

-•196E424 

-0. 

.lOCFfOi 

1 p :f ♦ c 1 

.418 * •’3 

-. ^ -2F+P4 

.6C9F^22 

. 131E^22 

-.962E424 

-0. 

. 100E4 01 

1“ 3"+01 

.?QF‘ *>24 

-. r43E^?4 

. 3?4Ff ?3 

. 645F*22 

-.473E425 

-0. 

.1006401 

I90f+ Q1 

. 1 n IF* 29 

36RF4.'»9 

. 159E ^24 

. 317E*23 

-•233E426 

-0. 

.1006401 

19 5*tC 1 

.497’ ♦ P5 

t Mr*^P6 

.784P’*24 

. t5tF42i» 

-.114E427 

-0. 

• 100E4 01 

3F+ -.1 

. ?4?«^ ♦pe 

-.390 F‘»26 

.38 FE^PS 

. 768E424 

-•563E427 

-0. 

.100E401 

PO^F*- 0 1 

. l?n- + 27 

-.4 3flF*>?7 

. 190E^P6 

.378E»25 

-.277E428 

-0. 

• 100E4 01 

? 1 0 ♦ 0 t 

,59?'+ 27 

-.215F ♦pa 

.933F^?6 

. 186F426 

-.1 366429 

-0. 

.100E401 

?irr* 0 1 

. ?9l- fr '>3 

-.1'>6:*P9 

.4*::9i^ + P7 

.914E^26 

-.670E429 

- 0 . 

•1006401 

ji 

. 1 4. 7q 

-.5?1F*P9 

.2?6F^ ?e 

. 450EfZ7 

-.330E430 

-0. 

.100E401 

p^=r> 31 

, 70F- + P9 

-.?56'+10 

• lllEf 29 

. 221F^28 

-•162E431 

-0. 

•100E4Q1 

? 10F+ G1 

. 34 7- ♦ 30 

-. 1P6F^ 31 

•546Ef?9 

. 109E*2C 

-.798E431 

-0. 

• 100E401 

P15F4- 0 t 

. 1 70 ♦■31 

-.620F+ 31 

.269E*30 

.535F*25 

-.392E432 

-0. 

• 100E401 

?^CF«- "1 

, a “*9' ♦ 31 

-. 3C5F+ 7? 

. 1 32E^’l 

.P63E^30 

-.193E433 

-0. 

.1006401 

P !♦ 5*^ ♦ " 1 

. 41 ?:♦ 3? 

-, 1F0F*33 

.65 0F^31 

. 129E431 

-.949E433 

-0, 

•1006401 

PF3F+ Cl 

. '*C ♦ 33 

-.73at*33 

.3 POE ♦BP 

.637E431 

-•467E434 

-0. 

. 100E401 

?F ♦ 0 1 

,qQ«^r ♦ 33 

3€3Ff34 

. 157E^33 

.313E432 

-•210E435 

-0. 

• 10064 01 

Pf: f’f ♦ :i 

, 4CIC ♦ 34 

-. 1''9c+35 

.773F»33 

.154E433 

-.113E43E 

-fl. 

• 10064 01 

?f 

.P41F+35 

-, 37aF+ 35 

.3«0E^34 

.758E433 

-.5966436 

-0. 

•1006401 

P’O'* 01 

. ll9‘<-36 

-.4 32E^36 

. 18 7E*35 

•373E»34 

-.2736437 

-0. 

•1006401 

PVf'4-ni 

i*" 36 

-. ?nr+ 37 

. 9?0Ff35 

.1 83E435 

-.1346438 

-0. 

•10064Q1 

or^o 1 

,2<ir * + 37 

-.iC5et3fi 

• 453E^36 

. 902E435 

-.6616438 

-0. 

•1QQE401 

?^ 5 -* 0 1 

. 1 41' f 33 

-.‘■14«‘^38 

.223E437 

.444E^3C 

-.3256439 

-a. 

•1006401 

P90f *01 

,695'f38 

-.?F3F^39 

. llOF+38 

.218E437 

-.1606440 

-0. 

.10064 01 

?95f fo 1 

.342' f 39 

-. 1?4F^40 

.5 39E + 38 

. 107E438 

-.787E440 

-0. 

.10064 31 

31 

. 1 #"3' «• 40 

-. 61?Ff ^0 

.265F*39 

.528F*38 

-.38TE441 

-0. 

•10QE401 
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T A BL E I 


CONTROL PROGRAM ANALYSIS OPTIONS 


CONTINUOUS SYSTEMS 

OPEN AND CLOSED LOOP SYSTEMS 
TRANSFER FUNCTIONS 
FREQUENCY RESPONSES 
POWER SPECTRA 
TRANSI ENT RE SPONSES 
ROOT LOCUS 


(S-PLANE) 

IS-PLANE) 

(S-PLANE) 

(S-PLANE) 


D I SCRETE SYSTEMS 

OPEN AND CLOSED LOOP SYSTEMS 
TRANSFER FUNCTIONS 
FREQUENCY RE SPONSES 
TRANSI ENT RE SPONSES 
ROOT LOCUS 


(Z- OR W-PLANE) 
(W“ OR S“PLANE) 

(Z-PLANE) 


SAMPLED-OATA SYSTEMS 
OPEN LOOP SYSTEMS 

STANDARD OR MODIFIED Z -TRANSFER 
FREQUENCY RE SPCNSES 
TRANSIENT RESPCNSES 
OPEN AND CLOSED-LOOP SYSTEMS 

STANDARD Z-TRANSFER FUNCTIONS 
FREQUENCY RE SPCNSES 
TRANSI FN7 RE SPCNSES 
ROOT LOCUS 


FUNCTIONS (Z- OR 
(W- OR 


W-PL ANE) 
S-PLANE) 


(Z- OR W-PLANE) 
(W- OR S-PLANE) 


( Z-PLANE) 


SYSTEMS MAY BE DEFINFO BY, 

1. MATRICES 

2. PARAMETERS 

3. BLOCK D lAGRAM 

COMBINATION OF AND C3*) 


( LOAD) 
(MATRIX) 
(CLASS ) 
(MIXED) 
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TABLE II CONTROL PROGRAM JOB CONTROL LANGUAGE AS OF 11-1-7^ 


JOB CONTROL CAROS FOR 

standard control »UN 

WITHOUT SOURCE DECK 
WITHOUT PLOT TAPE 

JOBN,CM72aLl »T4777. 

ATTACH! JWELI3» ID* JWE,PW=ADOY,HR=l) 
ATTACH(OVRLY , in=JWE) 
SEGLOAD(I=OVRLY» 

LOAD! JWELIBI 
EXECUTE. 

789 PUNCH 
DATA 

6789 PUNCH (YELLOW CARO) 


JOB CONTROL CARDS FOR 
STANDARD CONTROL RUN 
WITH SOURCE DECK 
WITHOUT PLOT TAPE 

J00N,CM72CCC »T4777. 

ATTACH ( JWELI9, IO=JWE,PH=ADDY,MR=l) 
FTN(LR=OUTPUT) 

REWIND (LGO) 

COPYL ( JWELIB.LGO, JWE) 

ATTACH(OVRLY, IO=JWE) 

SEGLOAD (I = OVRLY) 

LOAD (JWE) 

EXECUTE. 

739 PUNCH 

SOURCE DECKS 
739 PUNCH 
DATA 

678« PUNCH (YELLOW CARO) 
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JOB CONTROL CAROS FOR 
STANDARD CONTROL RUN 
WITHOUT SOURCE DECK 
WITH PLOT TAPE 


JOBNtCM/eCOO f T4 777,NTi. 

ATTACH( JWELIB, 10= JW£,PW=ADOY,MR=ll 
LABEL <CARO) SEE DESCRIPTION 
ATTACHCOVRLY, ID=JWE) 

SEGLOAO (I=OVPLY) 

LOAD ( JWELIB) 

EXECUTE, 

EXIT, 

BKSP(INPUT) 

ATT ACH(PLOTRC, IO=JWEf PW=A00Y,HR=1) 
LOAO(PLOTRC) 

REDUCE, 

EXECUTE. 

7r)9 PUNCH 
DATA 


PLOT CARDS (SEE DESCRIPTION ) 

678E PUNCH (YELLOW CARO) 


JOB CONTROL CAROS FOR 
STANDARD CONTROL RUN 
WITH SOURCE DECK 
WITH PLOT TAPE 

JOBN,CM7?CC0 »T4777,NT1. 

ATT ACH< JWELIB ,10= J WE, PW=ADOYtHR=l) 
LABEL (CARO) SEE DESCRIPTION 
FTN (LR=OUTPUT) 

REWIND (LGO) 

COPYL ( JWELIBfLGO, JWE) 

ATTACH(OVRLY, IO=JWE) 
S£GLOAD(I=OVRLY) 

LOAD(JWE) 

EXECUTE. 

EXIT, 

BKSP(INPUT) 

ATTACH(PLOTRCf 10= JWE, PW=ADDY,HR=1) 
LOAO( PLOTRC) 

R ED UC E , 

EXECUTE, 

739 PUNCH 

SOURCE DECKS 
739 PUNCH 
DATA 

PLOT CAROS (SEE DESCRIPTION ) 

6789 PUNCH (YELLOW CARD) 
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JOB CONTROL CARDS USING UPDATE FILE 
WITHOUT PLOT TAPE 

J08N,CM72000 ,T4777. 

ATT ACHICONUPF, 10= JWE ,PW=ADDY ,MR=1» 
ATTACH(0VRLY»ID=JWE,HR=1) 

UPDATE <P=C0NUPFI 
FTN(A,I=COMPILE,LR=C ) 

SEGLOAD (I=OVRLV) 

LOAO(LGO) 

EXECUTE. 

789 PUNCH 
•lOENT NAME 
UPDATES 

•COMPILE CONTROL. SU9SCL 
•END 

789 PUNCH 
DATA 

6789 PUNCH (YELLOW CARO) 


JOB CONTROL CARDS USING UPDATE FILE 
WITH PLOT TAPE 

JCBN,CM72)jCC , T4777,NT1. 
ATTACHCCONUPF, ID= JME . PW=A0DY, MR=1) 
ATTACH(0VPLY,I0=JW£,MR=1) 

LABEL (CARD) SEE OESCRIFTION 
UPDATE (P=CONUPF) 
FTN(A.I=COMPILE.LR=0) 
SEGLOAD(I=OVRLY) 

LOAO(LGO) 

EXECUTE. 

EXIT. 

BXSPdNPUT) 

ATTACH(PLOTRGt 10= JW£ .PW=AODY ,MR=1) 
LOAD(PLOTRC) 

REDUCE. 

EXECUTE. 

789 PUNCH 
•lOENT name 
UPDATES 

♦COMPILE CONTROL. SUBSCL 
♦END 

789 PUNCH 
DATA 

PLOT CAPDS (SEE DESCRIPTION ) 

6789 PUNCH (YELLOW CARO) 


THE UPDATE FILE CAN BE USED TO MODIFY SOURCE ROUTINES IN THE CONTROL 
program, updates are used to insert OR DELETE CAROS OF A SPECIFIED 
SUBROUTINE, EXAMPLES OF THE UPDATE DIRECTIVES CAN BE FOUND IN THE 
UPDATE REFERENCE MANUAL. THE SOURCE LISTING FOR THE CONTROL PROGRAM IS 
CONTAINED IN ROOM 2115. 
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DESCRIPTION OF LA3EL CARD 

CCl 

LABEL ( TAP£6»W,D=H0,L = XXXXXXXXXX,\/SN=YYYY»*RING IN»Z7 7** 
XXXXXXXXXX= YOUR LABEL 

YYYY=VOLUME NO. OBTAINED FROH COMPUTER ROOM 
Z2Z=Y0UR PAYROLL NUMBER 


DESCRIPTION OF PLOT CAROS 
PLOT CARDS 
CARO ONE 
CCl 
PLOT 

CARD TWO 

CCl-4 CC 26-35 CC 41-44 

NNNN NAME OF SUBTASK 

SUBMITTER («* DIGIT NUMBER) 

CARO THREE-N 
CCl-ia CCll-20 
Y Y 

MINIMUM MAXIMUM 
(FLOATING POINT) 

(ROOT LOCUS OR ROOT CONTOUR ONLY) 

NNNN-VSN NUMBER 
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T \rtL r III. 


CONTfi' I. ; SYSTFM MCnELS 


A. CONTlNUnuS ':YSTt^’ finpELS 
1. npFN LOOP 

Cx = Ax + Bt\. 

=Hx-tGx-f Fia. 

CLOSED LOno 

Ci. . Ax -t 6 ia 

u. = Klx -t <2. i. t corn 

Hx 6x-r Tiaw 

3. PDO^ LOfU? 

C X. ■= Ax “t 

IX = (k1 X + K2 i) + (l^Sx-t K4i) 

A. DISC' ETE SY^TFM mtoels 
1. OPEN LOOP 

■* AXyn"^ 

“ A Xfv "V F iA.r> 

fLCStrt LPh'P 

Xyy^l ~ AXy., "t" S'A.w 
Ur,- kfl Xvx -V 0 U<co^ ^ 

^»^=' HXrN 

1. pnoT locls 

(.Klx^ 
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r. 5AMPlFU-TATi SYSTEM M(U)FLS 


L. f'P. I:WNiAl SYSTFM 



2. CONNECT I. H'jS PPIi'i- TO DISCRETIZATION 



VjHE'P r IS nEFIEiE') PV VTUV AND ZTOU AND DFEINES CCNN >^CT I !'IN S 
MADE HLKikl rnr Pi.' NT IS DISCPFTIZFD (SEE TABLE VII B.) 



. COMkFCTI ;nS AFTF- ni sc F TI ZATIFN 



WFIEP F P IS f'FFINFD Y VZTGK AND DEFINES CUNNECTICNS MADE AFTFF 
IHF PLANT IF niSCRFTIZff) (SEE TABLE VII B.). FFR SECT L^CUS. 
THF SECOND r CM^'ET T! P'J SPECIFIED BY YZTFK (IF ANY) WILL OEMERATF 
K I (SIMILA'' 1:1 Kl) '■'fF Tf4l4(. A SFCONC FEEDBACK VARIABLE. 


B. FINAL SA'APl t O-DA TA SVSIF'J' 

- AXr^ + 

= KlX^-t DUcons^ 



FRCV 


FPPi^ 4 . ( Dr I ) 


^ TFFFE SL3KA trices BAY CCNTAIN NCN-ZERC ELEMENTS. 
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TABLE IV 


CONTROL PROGRAM DATA DECK FORMAT 


CARD I TITLE CARD FORMAT (10A8) 

ANY LITERAL DATA DESIRED TO LABEL ALL PRINTOUTS AND PLOTS 

CARD(S) 2 TO N NAMELIST CODE (SEE APPENDIX 2) 

INTEGER VARIABLES 

READ, system, OUTPUT ,M IX ED ,D I G IT L, FR PS, NUME RS , TR ESP ,NX ,NY , NU, NXC , 
NUCtZOH.NI ,N 2,CCNTUR,MLLTRT,MQDEL,NSCALE,CMAT,NK2t FCRM, IPT, IGO, 
SAV, IF LAG,RE AD 3 

REAL VARIABLES 

OELT,F INALT, IFREQ,FFREC,DELFPQ,GAIN1,GAIN2,M 

CARD N + l OUTPUT LABELS FORMAT (8A10) 

LITERAL OUTPUT VARIABLE LABELS USED TU LABEL PRINTOUTS AND PLOTS. 
ORDERED IN SEQUENCE CORRESPONDING TO NY OUTPUTS, Y. LEAVE BLANK IF 
SYSTEM = 3. Will read the greater of 8 or NY outputs. 

CARD N+2 INPUT LABELS FORMAT (8A1Q) 

LITERAL INPUT VARIABLE LABELS USED TO LABEL PRINTOUTS AND PLOTS. 
ORDERED IN SEQUENCE CORRESP CNOI NG TO NU INPUTS, U. LEAVE BLANK IF 
SYSTEM = 3. Will read the greater of 8 or NU inputs 

CARIXSI (N+3) TO (M) SYSTEM DATA (SEE TABI E V AND APPENDIX 2) 

SYSTEM DATA AS SPECIFIED BY LOAD, MATR IX , CHANGE, OR CLASS. IF READ =1, 
EACH DATA MATRIX IS READ ROW-WISE WITH FORMAT (8F10.A) AND EACH 
MATRIX MUST BE PRECEDED BY A DIMENSION CARO (FORMAT (2110) > GIVING 
THE NUMBER OF ROWS AND COLUMNS OF THE MATRIX. 

CARD M + 1 TRANSIENT RFSPONSE INPUT DATA 

INPUT IS CALLED BY THIST TO GENERATE THE TRANSIENT RESPONSE INPUT 
VECTOR. THE INPUT SUBROUTINE ON THE DISC READS ONE DATA CARD FOR 
EACH RESPONSE DEFINING A STEP INPUT ON THE NU COMPONENTS QF THE 
augmented and thinned input vector, u. (format (7F10 . 4) ) 

THE ABOVE CARDS DEFINE CNE CASE. AS MANY CASES AS DESIRED MAY BF STACKED 
TOGETHER FOR A SINGLE CCMPUTER PUN. 

IF A PLOT IS REQUESTED THE PLOT CARDS AS DESCRIBED IN TABLE II ARE 
REQUIRED 
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TABLf V 


DATA RECUIREn RY CONDITION COOES 


SI££_i AD = 1 f2 ,3 


SYSTEM 

1 OPEN LOOP 

IF MIX ED =1 , THI S I S 

? CLOSED LOOP 

3 RCOT LOCUS 



IF 

CHAT = 0 

C 


IF 

NK2 = 0 

K2,K4 


IF 

OUTPUT = 1 

G,F 


I F 

OUTPUT = 2 

F 


IF 

OUTPUT = ? 

G 


IP 

O 

II 

CVJ 

K3,K4 



READ = ^ 
IF MIXFD 

; oPt 

=1, THIS IS 

C AR D 

1 

NB LOCKtNI T 

FORMAT (2 

IF NIT 

= 0 

GO TO ( 



CARDS 2-(NBLOCK + l) ONE CARD PE 


REQUIRED MATRICES 
A,B,C,H,G,F 

STEP 1 OF THF MIXED LOADING OPTION 

A,B, C,H, G, F,K 1,K2,0 
A,B,C,K1,K2,K3tKA 

MATRIX NOT REQUIRED 
MATRIX NOT REQUIRED 
MATRIX NOT REQUIRED 
MATRIX NOT REQUIRED 
MATRIX NCT REQUIRED 
MATRIX NOT RBQ.UIRED 

STEP 2 OF THE MIXED LOADING OPTION 

5 ) 


BLOCK FORMAT ( 12, 515, 5F10 . 4) 


NUM,TYPE , (CCNNEC ( I) ,I =l , MOD, (PARAMI I ) , I = l , 5 ) 


NLM = BLOCK NUMBER 

TYPE = BLOCK TYPE (1-10) SEE TABLE VI 

CCNNEC = SPECIFIES INPUTS TC BLOCK. FIRST THREE ELEMENTS MAY SPECIFY 
CONNECTICNS FROM OTHER BLOCKS (♦). FOURTH ELEMENT MAY 
SPECIFY EXTERNAL INPUT (♦). Table VI 

MOO = SPECIFIES TFAT G(P) IS S-,Z-, OR W- TRANSFORM specified in A 
PARAM = PARAMETERS DEFINING BLOCKS AS SPECIFIED IN TABLE VI 


GO TO 

( ««) 






imt 


fCBKAT 

( 

GRAPH 

I NTFGER 

NBLOCK X 5 

5 15 


BLOCK 

1 ^TEGER 

NBLCCK X 3 

3 15 


NUMFR 

REAL 

NBLOCK X 5 

5F10. A 


OENOM 

REAL 

NBLOCK X 5 

5F1C.^ 


GAIN 

REAL 

NBLOCK 

8F10 

( ) 

1 TH INY 

I NTEGER 

1 # CF OUTPUTS 

L6T5 

. TOP 

IF MIXED 

=0 UNLESS READ=4 and 

SYSTEM =3 



I THING 

I NTEGER 

^ # CF INPUTS 

1615 


NVTOVt 

NZ TOIJ ,NYZTOK I NTEGER 


3 15 


YTOV 

I NTEGER 

NYTGV X 2 

2 15 


ZTOU 

I NTEGER 

NZTCU X 2 

215 


yztok 

I NTEGFR 

NYZTCK X 2 

215 


ORIGINAIj page is 
OF POOR ^lUAUra 
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TABLF VI (CfINT.) 


Thh STANDARD FGRM, G(P), IS INTERPRETED AS AN S-,W-, CP 2-PLANE 
TRANSFER FUNCTITN AS SPECIFIED BELOW 


MOO 

n 

I 

2 

D I G 1 




c 

G( S ) 

— 

— 

1 

G ( 5 ) 7 G ( Z ) 

G( S) 

GIW) 

2 

G( Z ) 

G ( S) 

G(W) 


IF MPD = C THE TRANSFER FUN'CTICN COEFFICIENTS ARE NCT PCCIFIED 

IF MOD = 1 THE TP AN SFFR FUNCTION CRITICAL FRECUENCIES ARE PREWARPED 
TO APPROXIMATE THE S-PLANE FILTER IN THE W- PLANE AND THEN 
TRANSFORMED TO THF 2-PLANE AS DESCRIBED BELOW. FIRST CPCER POLES 
AND ZEPOES ARE WARDED AS 


a. 


(x) 


COMPLEX POLES AND ZEROES ARE ^jARPEO AS 




w 




to. 




w 






cotfK^MT) c«C^ 7 ) 


j'/h 


/n/(gT) 


cojh^o<T) t c%5 C^T) 


wliU 


Ss^ ' S: 


IF MOn = ? THE TRANSFER FUNCTION IS REGARDED AS A W-PL/NE TRANSFER 
FUNCTION AND TPANRFORMcn TO THF Z-PLANE BY THE BILINEAR TRANSFORMATION 


W = ( Z-1 )/(Z + l) 


IF OIGITL ^ ] AND ’-'OD 2 C THE TRANSFER FUNCTICN C ANNCT EE PART OF THE 
CONTINUOUS PLANT (I.E. THF INPUT TO THE FILTER RUST PE NUMBERED 
HIGHER THAN NUC AND THE FILTER STATES MUST PE MJMBEREC HIGHER 
THAN NXC) 

IF DIGITL = 1 AND ^nn = ' THE TRANSFER FUNCTICN CCEFFICIENTS ARE 
NOT MOniFlFO. THF FUNCTION IS INTERPRETED AS AN S- OR 2- PLANE 
FUNCTION DEPENDING CN THE RELATICN OF THE FILTER STATES Tf NXC. 

IF THE Fit TER STATES ARE NUNBEREO LESS THEN NXC, THEN THE FILTER IS 
TREATED AS PART OF THE CONTINUOUS PI ANT. IF THE FILTER STATES APE 
NUMBERED GREATER THAN NXC THEN THE FILTER IS TREATEC AS PART OF 
OIGITAL CONTRCLLE R. 
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TABLE VII DISCRETIZED PLANT MCDELS FOP VARIOUS INPUT AND OUTPUT 
DEF INI TICNS 




1 

I 

CONTI NUOUS 
MODEL 

X- Ax + B'a- 
H X + P’^^• 

SAM PL ED 
INPUT 

Xv^*,» 4>^r)6o^r, 



^ - H X\^ 

«5„. (Fio) 

ZOH INPUT 







C. (**’<‘) TIME DELAY i 0 < M ^ 1 

CONTINUOUS 

a Ax + Bw. 

MODEL 

\^= Hx + Eu 

SAMPLED 
INPUT (F£ 0) 

4^(t)Xv,4 (l>W0^y^ 

H ^ 0'*'^) Xy^.. f + H ^ ® •''■rv' 1 


^n+I ’ 

ZOH INPUT 

^ft/Y^> H 4>^TnT}x„-, + Fl^n-I 




{*) CONTROL ASSUMES 'Aft* *»n FOR ANY CCNNECTIONS FROM THE 

PLANT TO THE DIGITAL CONTROLLER (I.E. PLANT FEEDBACK). 
(♦♦) CONTROL ASSUMES FOR FINAL SYSTEM OUTPUT CALCU- 

LATIONS (TRANSIENT RESPONSES, TRANSFER FUNCTICNS). 
MODIFIED Z-TRANSFORM ANALYSIS CAN ONLY BE USED WITH 
OPEN LOOP SAMPLED-CATA SYSTEMS. 
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TABLE VIII VECTOR ORDERING AND SYSTER CONNECTION CONVENTIONS FOR 
SAMPLED-DATA SYSTEMS 


A. VECTOR ORDERING CONVENTICN 

THE COMPONENTS OF THE AUGMENTED VECTORS U, X, AND Y MUST BE ORDERED 
IN THE FOLLOWING SEQUENCES, (IN STEP 2 CF THE MIXED OPTION, NUMBER 
THE EXTERNAL INPUTS AND BLCCK OUTPUTS IN THE INDICATED ORDER) 

INPUT VECTOR, U 

1. INPUTS TO PLANT FROM ZERO-ORDER-H C LO ELEMENTS (ZOH) 

2. INPUTS TO plant FROM SAMPLERS (NUC-ZOH) 

3. INPUTS TO DIGITAL CONTROLLER (NU-NUC) 

STATE VECTOR, X 

1. CONTINUOUS STATES (PLANT, NXC ) 

2. DISCRETE STATES (DIGITAL CONTROLLER, NX-NXC) 

OUTPUT vector, Y 

1. PLANT OUTPUTS 

2. DIGITAL CONTRCLLER OUTPUTS 


B. SYSTEM CONNECTION CCNVENTICN 
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FIGURE I FLCW CHART OF CNTRLR SUBROUTINE 
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D/iTA CECK 



*OTHER SUBROUT EffiS AS DESIRED 


FIGURE 2. STRUCTURE CF CCNTRfL DECK 


Wfi QVAirry 
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FtGLRE 3. 


C C2 

I 

* 

$CODE 

DELr = 
IP T=2,$E ND 


6/7/879 


♦>0t«RnOT LOCUS PLOT AXIS CARD(S)*** 



CCNTROL PCRHRAR DATA DECK STRUCTURE 


. 0 *: 


PEAD=1, SYSTEK = 

, FINAL T=m. , I FREQ = 


I 

5 


0UTPUT=3,NX=4, NY=S,NU=2t 
,FFRFG= 100.,DELFRQ=1 .11, 


FIGURE 


EXAMPLE OF DATA ENTRY USING A NARFLIST FORRAT 
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b. '' rdoalized ' line z-Muence. 

-* '^Ime senue’n^-’ models Tor' sampled- cib ^ h sys 



{^~iy ('fNAT'N- P (tN-tlp 


figure Time sequence model for sampled- da *'.a systems w!"h 
computational time delay. 
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